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: 1 0001 8 MODULE SMALOC ( : 
; 2 $008 LANGUAGE COL 3838) - : 
001 !cps0005 000 8 IDENT = *v0Q4-001' : 
: 4-1 0004 )= : 
: 5 0005 1 BEGIN ; 
: 6 Bane 1 : 
: 7? 0007 1! : 
; 8 0008 1 SRRARAAHAHAHHHAAHAHERHARAHHAHHHHETHERHEHEHAEHAAEKAHEKERAAAAAARHeeeAeeAeeeeeese é 
: 9 0009 1 !* : 
.- 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
; 0011 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * F 
: ig pots : 1* ALL RIGHTS RESERVED. . 3 
3 'e . : 
; 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
i 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* : 
; 0016 1 !* INCLUSION OF THE ABOVE COPYRIGH TICE. THIS SOFTWARE OR ANY OTHER * : 
; 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
: 0018 1 !* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * : 
: i th ’ \ TRANSFERRED. * : 
3 '@ ® ° 
; 6a 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
: $§ B086 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT : 
: $i bose : :* CORPORATION. * 3 
; ‘@ ® e 
ae :, 00¢5 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY CF ITS * : 
; 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
wee 4 0027 1 !* " : 
; «28 0028 1 !# * F 
: 29 5 94 1] !eeeeeeereererereereteeeererererererererereeeeeteeeeteetenetenereeerenereneee : 
; » 0030 1 F 
ae 0031 1 !4¢ : 
; $§ ate 1! F 
2) 0033 1 ! FACILITY: FIIACP Structure Level 2 . 
; 3 0034 1! 3 
ee .. 0035 1 ! ABSTRACT: : 
>; «6 et 17 , . J ; 
3 0037 1! This module contains the routines that manipulate the volume | : 
;: 3B 0038 1! storage bitmap. These inciude the routines to allocate a contiquous : 
.:- 0039 1! area, deallocate an area, and the basic bitmap scanner. : 
3 re Bhd : Also included are the routines that manage the extent cache. : 
; 644 0042 1 ! ENVIRONMENT: : 
3 45 0045 1! by? : : 
3 4 0044 1! STARLET operating system, including privileged system services : 
; (45 0045 1! and internal exec routines. 30 
; 646 0046 1! 30 
: 67 0047 1 !-- 30 
: «648 98 7? : 
; | (649 0049 1! : 
: 29 its ' , AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Feb-1977 18:42 : 
3 2g B23 : : MODIFIED BY: : 
3001 !CDS0005 se 1! v04-001 CDS0005 Christian D. Saether 15-Nov-1984 : 
2008 Rete: 3? ! Expand test for clusterness to look at clu$gi_club. : 
; «(564 0057 1! VO3-012 ACG0445 Andrew C. Goldstein, 21-Aug-1984 20:48 : 
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: 56 0058 i Fix handling of null extent cache in RETURN_BLOCKS > 
28 Oost sah hag extent cacheninterlock Uogies remove Kerfel calles | 
, i 3 | 3 x ee ee and SET_SAVBN routines. Use central | ‘04 
; : v03-01 
BB i Reraiseeastttahbenstiliuarin, biznes 7 
Se en Rage ye TLL eae 
; a i 7 
: $8 nar | : vO3-008 CDSOO0s | | Christian D. Saether 25-Sep-1985 
eR cael OS 1a Ot Peet Sted ne en : 
; 76 0079 7 seit Teen iehartons toy at cation sxrtationstes tna ue. | 
Bee tale Beat 9 2 ak SOO RLS cectioar Ss asorbe sg teeeee 
2 ee She oe 
; 0087 1! v03-003 STJ306 ~Mar- | 
(eg BB > Alda fid‘iebsit Sreacee S's 
8) ated en ery 
: Go9s 1; “OPO! Brevent volume free Space from going negative | 
¢ Gog 1: PON FEE Spurious altocation faitures’ in approx. placed allocation 
; i " 
2 ee See a 
i 0104 : naw ng etnian tak eal coat ts delieies tend a 
104 i : ot teeth block seonaeiel medbien te: dbaskiee andes ati stan 3 | 
B Pee GRU. Seed oe OP Ey eh na Bo 
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LIBRARY ‘SY 
REQUIRE ‘SR 
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Sgt JORART L1G, L52°: 
CS$:FCPDEF .B52'; 


t 
Modes of operation of the bit scanner. 


LITERAL 


: L_NORM, : allocate blocks from storage bitmap 
aed BITMAP: L NORE NOVALUE, ! return blocks to storage bitmap 
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1 

1 

: 

1 FIND_SET = 0, ! find first one 

1 FIND CLEAR et. ! find first zero 

1 SET_BITS = ¢: ' set n bits 

’ CLEAR_BITS = 3 ' clear n bits 

1 

1 FORWARD ROUTINE 

1 ALLOC BLOCKS =: L_NORM, 

1 RETURN_BLOCKS : L-NORM NOVALUE, 

1 INIT_ERT CACHE : L_NORM NOVALUE, ! set up extent cache lock 

1 ALLOC_EXTEN : LINORM, ' allocate entry from extent cache 
1 RETURR_EXTENT  : L_NORM, ! return entry to extent cache é 
1 PURGE EXTENT : LLNORM NOVALUE, ! return cache entries back to bitmap 
: REMOVE EXTENT =: L_NORM, ' remove entry from extent cache 

1 

1 
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GLOBAL ROUTINE ALLOC_BLOCKS (FIB, BLOCKS_NEEDED, START_LBN, BLOCKS_ALLOC) : L_NORM = 
‘ee 


' 
FUNCTIONAL DESCRIPTION: 


se 


This routine allocates a single contiguous area of disk. It first 
pesenere allocation from the extent cache. If that fails, it performs 
the allocation from the storage bitmap. 


As part of system security, the blocks allocated will be erased 
before returning the extert to the caller. 


: CALLING SEQUENCE: 
ALLOC_BLOCKS (ARG1, ARG2, ARG3, ARG4) 


INPUT PARAMETERS: 
ARG]: address of FIB for this operation 
ARG2: number of blocks to allocate 


IMPLICIT INPUTS: 
CURRENT_VCB: VCB of volume 

CURRENT_UCB: UCB of volume 

| 

| 
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OUTPUT PARAMETERS: 
ARG3: address of longword to store starting LBN 
ARG4: address of longword to store block count 


PEED AAAAA AAS BB BB BB BH 
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IMPLICIT OUTPUTS: 
LOC_LBN: plcement LBN of allocation or 0 


SNNNNOOO 
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ri lt lt el elt eel eel el cel cael lt lls cel els ls cls ls cls ceils cls ely lls lls ll all sells call asa lls ually 


6 

6 

: 
7 6 ROUTINE VALUE: 
7 6 1 if successful allocation 
7 6 0 if failure 
78 7 
79 7 SIDE EFFECTS: ‘ 
59 4 storage map, VCB, and extent cache modified 
Be ? = 
8 7 
84 7 BEGIN 
85 7 
86 7 MAP 

: : ' of operation 

44 r FIB REF BBLOCK ' FIB of i 
89 8 LITERAL : : 
30 ; ALLOC_RETRIES = 3; ! Number of times to retry allocation 
3 : LOCAL 
9 ERASED ! status of erase operation : 
94 : ATTEMPTS, ' number of attempts at cache allocation 
95 STATUS, ' status return value ; 
96 8 CACHE : REF BBLOCK, ' pointer to main cache block 3 
97 8 EXTENT_CACHE : REF BBL OLE. ' pointer to extent cache 3 
98 9 TEMP : VECTOR C2], ! quadword temp for EMUL B EDIV | ‘ 
Qs 9 EXT LIMIT, : local longword copy of extent Limit parameter ; 
00 9 DUMAY, ' dummy to receive remainder from EDIV ; 
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! total disk space to allocate into cache 
' LBN being allocated 
! block count being allocated 
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CACHE _TOTAL, 
LBN. 

COUNT; 

BIND 


DUMMY _FIB = UPLIT (REP FIBSC_EXTDATA OF (BYTE (0))): 
' default FIB for allocation for cache 


oo 
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BIND_ COMMON; 


EXTERNAL ROUTINE 

ALLOCATION LOCK : L_NORM, ! serialize allocation/deal location 
ERASE _BLOCRS : LIONORM ! Erase blocks before reusing them 
ALLOCATION UNLOCK :"L_NORM NOVALUE, | release allocation loc :. 
RELEASE LOCKBASIS : L-NORM, ' release buffers under specified lock 
DEQ LOCR : L_NORM, ' dequeue a lock 
CACRE_LOCK : LINORM; acquire cache sync lock 


WEAN DODNOUEW 


EXTERNAL 


001 _:CDS0005 UB : ADDRESSING_MODE (GENERAL), 


CLUSGL_CL 
PMSSGL_EXTHIT : ADDRESSING_MODE (GENERAL), . 

' court of extent cache hits 
PMSSGL_EXTMISS : ADDRESSING_MODE (GENERAL); 

' count of extent cache misses 


POPOPIRIRIPII a at et es 
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Serialize processing against other storage/header allocation/deal location. 


ALLOCATION_LOCK (); 


: First attempt to allocate the space from the extent cache. Note that 
! a placed allocation can actually split a cache entry; therefore, if the 
: cache is full after the allocation, purge it to half. 


CACHE = .CURRENT VCBCVCBSL_ CACHE); 
EXTENT CACHE = .CACHECVCASC_EXTCACHE); 
IF (STATUS = ALLOCLEXTENT (CFIB, .BLOCKS NEEDED, .START_LBN, .BLOCKS_ALLOC)) 


VFWN—OOCONOVEWN oO 


BEGIN 
Seen eA SE TOUTS GEQU .EXTENT_CACHECVCASW_EXTSIZE] 


BEGIN 
PMSSGL_EXTMISS 
PURGE EXTENT ( 


ELSE 
> PMSSGL_EXTHIT = .PMSSGL_EXTHIT ¢ 1; 


= ,PMS$G 
«EXTENT_C 


$$ +1; 
ASW_EXTSIZE] / 2, -1); 


SELL EEE be net hey tet etre ah oh 


the cache allocation failed, attempt allocation from the pttaep. 
this fails, purge the cache if there is anything in it, to make 
e bitmap consistent. Then attempt allocation from the bitmap again. 
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L_EXTMISS = .PMSSGL_EXTMISS ¢ 1; 
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a 
TENT_C 4 IT); 
CURRENT_VCBCVCB$L EJ, ZREF (0), TEMP); 
), TEMP, CACHE TOTAL, D 
CHECVCASW_EXTCOUNT) GEQ 


UMMY) ; 
EQU .EXTENT_CACHECVCASW_EXTSIZE]/2 


LOC_BITMAP (DUMMY_FIB, .CACHE_TOTAL, LBN, COUNT, 1) 


AL 
IT : 

EXTENT (.LBN, .COUNT); 

OTAL = .CACHE_TOTAL = . COUNT; 
HE_TOTAL LEQ 0 


END; 
END; ! end of bitmap processing conditional 


! If we successfully allocated something, erase the space if called for 
! and deduct it from the volume's free space. 


: 7 1250 3 
; 58 1251 ; DECR J FROM 2 TO 1 ; 
3 9 1 ¢ dO ; 
: 260 1 4 EGIN : 
: 261 1254 5 IF (STATUS = ALLOC_BITMAP (.FIB, .BLOCKS_NEEDED, .START_LBN, .BLOCKS_ALLOC, 0)) ; 
; : : 2? 2 THEN EXITLOOP; ‘ 
; 264 1 28 4 ! Can't get the space from the bitmap as is. Purge back the extent cache, . 
; 265 1258 4 ! and, if we're in a cluster, ask for a flush of all others and try . 
; 266 1259 4 ! once more. : 
; 267 1260 4! 5 
: 268 1261 4 : 
; 269 1 66 4 PURGE EXTENT (0, 0); . 
;. 270 126 4 IF .BBLOCK CURRENT UCBCUCBSL _DEVCHAR2J, DEV$v_CLUJ F 
3001 'cCDS0005 1264 4 AND .CLUSGL_CLUB NEQ : 
3; 27) 1265 4 THEN 3 
3 if 1266 2 BEGIN 3 
:; ev 1267 LOCAL BIT FILE ID, LOCK_ID, STATUS; ; 
; 74 1268 5 RELEASE _LOCKBASIS (-1); é 
: 275 1269 5 ALLOCATION _UNLOCK (); : 
; 276 1s70 5 BIT FILE_IB = FIDSC_BITMAP OR .CURRENT_VCBCVCB$W_RVN) * 24; . 
s arr 1271 5 LOCR_ID = 0; ‘ 
: 278 1576 5 CACHE LOCK (.BIT_FILE_ID, LOCK_ID, 1); 3 
; 279 15) 5 ALLOCATION_LOCK MD; : 
: 280 1074 § DEG_LOCK (7LOCK_ID}; : 
s gel 1603 4 END; : 
3 fi : 6 END; : 
R 1278 ! If extent caching is not shut off, now refill the cache from the 

$ § : } bitmap block currently in memory. 

2 1281 

- 2 1 a¢ IF NOT .CACHECVCASV_EXTC_VALID] 

; g 83 THEN JNIT_EXT_CACHE~(. CACHE); 

Ve 1285 IF .CACHECVCASV_EXTC_VALIDJ 

, 1 86 THEN 

; 2 1287 4 BEGIN 

 . 1288 4 LOC_LB 0; , rg placement 

a 1289 4 EXT L = ACHECVCASW_E T 

2 1 4 L 

3 1 4 

3 1 4 

3 : “ 

3 ! 2 

3 ! ; 

: 1 3 

: 1 5 

5 1 & 

2 1 

3 1 

3 1 

: 1 

: 1 
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1 END; 


if . STATUS 
HEN 


BEGIN 
IF NOT pGpRRENT ycatvcasy NOHIGHWATER] 

THEN ERASE BLOCRS . ~BLOCKS_ALLOC 
CURRENT vc8 VCBSL 8) = “CURRENT _VCBCVCBSL_FREE 
IF Ba Fe REE) LSS h'- 

nee CURRENT. vcBCvCBse PRE = 0; 


RETURN .STATUS; 
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O_ CHANNEL ) 
BLOCKS _ALLOC; 


! end of routine ALLOC_BLOCKS 


«TITLE SMALOC 
IDENT \V04-001\ 


«PSECT SCODES,NOWRT,2 
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v04=001 -0ct-1 F11X.BUGSRCISMALOC.B32;1 
.EXTRN ERASE BLOCKS ALLOCATION. UNLOCK 
-EXTRN RELEASE_LOCKBAS 
~EXTRN DEQ tBERe vat spore 
RN CLU LUSGL_ CLUB ne GL_EXTHIT 
.EXTRN PMSSGL-EXTMIS 
00FC 00000 .ENTRY ALLOC BLOCKS. 52 R2,R3,R4,R5,R6,R7 ; 
7 00000006 99 9 00008 MOVAS  PHESEE CRIA SS AP : 
E 14 § SUBL " SP : 
6 98 AA 9E 0000 V “104 (BASE), R6 : 
00006 CF 00 FB 0901 CALLS #0 a LOCK : 
9 66 D 6 1 VL — (RO), R : 
58 AO OD 1 MOVL 88(RO), CACHE ; 
52 06 A3 D0 00 1 MOVL 4(CACHE) EXTENT_CACHE : 
7E 0C ac 7D 000 MOVO = ST -(SP) : 
7E 04 AC 7D 00024 mova FIB, = : 
0000v CF 04 FB 00028 CALLS #4, ALLOC_EXTENT : 
55 g DO 00020 RO, STATUS : 
22 55 £9 000 BLBC x TUS, 33 : 
6 02 A2 61 000 CMPW (EXTENT_CACHE), (EXTENT_CACHE) : 
13 1F 00037 BLSSU : 
6 D6 00039 INCL PASSGL EXTMISS : 
ze 1 ce 00 MNEGL #1, -(SP : 
5 : ¢ 003E MOVZWL  ( ATENT PCACHED , RO : 
7E 50 C? 00041 DIVL3 ; 
o000v CF 0 FB 00045 CALLS * PURGE_EXTENT : 
6 11 QO04A BRB : 
000000006 00 B 904 1$: INCL Mtge : 
OOCA 31 99 gs: BRW ; 
7 06 0055 3s: INCL  PMS$GL_EXTMISS : 
54 2 90 0005 MOVL #2, J ; 
E b4 O05, ‘$ CLRL 0s = (§P) : 
7E 0c ac 7D 00 3 MOVG — START_LBN, ~(SP) : 
7E 04 aC 7D 000 MOva ; 
0000v CF F 9064 CALLS » ALLOC. BITMAP : 
55 0D 69 VL STATUS 3 
4F 5 E 06C BLES Mina $3 : 
E C F CLROQ : 1262 
0000v CF 02 F 1 CALLS te, PURGE EXT ENT ; 
50 94 AA D 9076 MOVL suOB BASES. R : 1263 
3p 3¢0O AO OE 7A BLBC ; 
000000006 9 D3 007€ TSTL sn CLUB + 1264 
84 BEQL 3 
7E 1 CE 86 MNEGL #1, =(SP) > 1268 
00006 CF 1 FB CALLS #1, RELEASE_LOCKBASIS : 
0000G CF 0 FB of CALLS #0, ALL LLGCA CATTON_UNLOCK 3 1369 
50 6 VL (RO), R > 1270 
0 OE A 96 mMOV2wL 14(RO), RO ; 
50 0 1 9A ASHL #34, rb, RO F 
0 02 8 Hi BISB2 #2, BIT-_FILE_ID : 
oF D4 OOOA LRL LOK 1D" : 1371 
BD A PUSHL @ > 1272 
04 AE 9F OOOA SHAB LOCK_ID : 
DD PUSHL BIT_FILE_ID : 
90006 CF FA AA CALLS #3,” CACHE _LOCK 3 
0006 CF FB QOOAF CALLS ALLOCATION_LOCK : 1373 
6— 0D 4 SHL  LOCK_ID > 1274 
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Routine Base: S$CODE$ + 0020 


ant eC Mn CTP Stats Petar 


#1, DEQ_LOCK 
J, 4 

Wi, 11(CACHE), 7$ 
cath HE 

a, INIT EX EXT T CACHE 
a 1(CK 
; {BASES 

(EXTENT CACHE), EXT_LIMIT 
aS? canter 64 (RO) TEMP 
71000, TEMP, CACHE | rotane DUMMY 
{ XTENT_CA CHE) 
, ; a6, 2(EXTENT_CACHE), RO 
#1 

COUNT 
LBN 


CACHE E TOTAL 
mB, ACLOC, BITMAP 


i. RETURN EXTENT 
OUNT, CACRE TOTAL 


sTarus 11$ 


eee Dees rege 
ae ERKSE BLOCKS 
R 


R 
@BLOCKS ALLOC, 64(RO) 
(R6), RO 


MORIN FoF 
SSSR Sa 


at a aa 


for 
eo 


H 7 


SMALOC -Jan-1985 18:35:14 AX=11 Bliss-32 V4.0-742 Page 10 Sm 
v04-001 ets i 18:33:48 LP Tix BUGSRCISMALOC BSo01 . RY VO 
; 8 ! ¢ ! GLOBAL ROUTINE RETURN_BLOCKS (START_LBN, BLOCK_COUNT, ERASE_REQUESTED) : LLNORM NOVALUE = : 
: 33) 1304 1 !46 ; 
; ¢ 1325 1! : 
3 : $ ; FUNCTIONAL DESCRIPTION: : 
: 5 1308 1! This routine returns a single contiguous area to the storage pool. : 
; 1329 1! If there is space in the cache, the blocks are simply returned to . 
: 7 1330 1: the cache. If the cache is full, if first purges some of the cache ‘ 
s : : 1 : entries and then returns the blocks. : 
; 340 1338 1 | CALLING. SEQUENCE: 
H re: : ¢ ' RETURN_BLOCKS (ARG1, ARG2, ARG3) : 
i 38 1336 1 | INPUT PARAMETERS: : 
: 344 1337 1! ARG1: starting LBN to free : 
s 365 1338 1! ARG2: number of blocks to free : 
: 348 1373 : ARGS: boolean. 1 if blocks are to be erased, 0 if not. : 
: 348 1341 1°! IMPLICIT INPUTS: 
; 349 ed 1! CURRENT_VCB: VCB of volume : 
; 390 1343 1! CURRENT_UCB: UCB of device ; 
s 33) 1344 1! : 
: $26 1345 1 ! OUTPUT PARAMETERS: : 
ae 1346 1 | NONE ; 
; 354 1347 1! : 
; 355 168 1 ! IMPLICIT OUTPUTS: é 
; 356 1349 1 | NONE ; 
3; 37 1350 1! : 
: 338 1351 1 | ROUTINE VALUE: : 
; 59 1 26 1! NONE 3 
: 360 1353 1! : 
: 361 1354 1 ! SIDE EFFECTS: 3 ; 
5 308 132? : storage map, VCB, and extent cache modified : 
: 364 1357 1 i-- : 
: 365 1358 1 : 
3 1359 BEGIN : 
; 367 1360 : 
; 368 1361 2 LOCAL : 
; 39 1368 CACHE : er tel; 4 pelnter Be oi ae ae : 
: 371 1364 EXTENT_CACHE =: REF BBLOCK. i pointer to extent cache : 
. 1365 TEMP : VECTOR C2), ! quadword temp for EMUL & EDIV : 
: iv 1 4] EXT LIMIT, ' local longword copy of extent Limit parameter : 
: 74 136 Y, ' dummy to receive remainder from EDIV ; 
; ¢ : o8 CACHE _LIMIT; ! total disk space to allocate into cache : 
: 37 1370 2 BIND_COMMON; : 
: 7 1371 $ 
: 7 1 ie; EXTERNAL : 
; t} ' o PMSSGL_EXTHIT : ADDRESSING_MODE as nents enche ibti : 
3 ' count of ex e 3 
2 8 1375 PMSSGL_EXTMISS : ADDRESSING_MODE (GENERAL); : 
3 + ! , ' count of extent cache misses : 
: 385 1378 2 EXTERNAL ROUTINE : 
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“Jan-1985 18:35:14 AX 
b-Jan-1985 13:33:48 YF 
ALLOCATION LOCK : L_NORM, 
: LUNOR 


ERASE_BLOCRS M; ! Erase blocks before reusing them 


1 
1x 


} First check the block count for non-zero. 

IF .BLOCK COUNT EQL 0 

THEN ERR_EXIT (SS$_BADFILEHDR); 

} Check the blocks being returned against the volume size. 

IF .START LBN + ,BLOCK COUNT GTRU .CURRENT_UCBCUCB$L_MAXBLOCK] 
THEN ERR_EXIT (SS$_BADFILEHDR); 

: Check that the start LBN and count are integral multiples of the 


: cluster factor. If not, reject the operation on grounds of a bad 


file header. 


IF .START_LBN MOD .CURRENT VCBCVCB$W_CLUSTER] NEQ 0 
OR .BLOCK-COUNT MOD .CURREAT VCBLVCBSW_CLUSTER] NEQ 0 
THEN ERR_EXIT (SS$_BADFILEHDR); 


! Before returning the blocks, erase them if need be. 


Notify the user if an error is encountered. 


4 - ERASE REQUESTED 
IF NOT (STATUS = ERASE_BLOCKS (.START_LBN, .BLOCK_COUNT, .10_CHANNEL?) 
ERR_STATUS (.STATUS); 
: Serialize processing against other storage/header allocation/deal location. 


ALLOCATION_LOCK(); 
! Attempt to activate the extent cache if it is not active. If it refuses 


' to activate wales s null, or is inhibited due to interlocks), return 
the space directly to the bitmap. 


CACHE = .CURRENT_VCBL cast CACHE): 
EXTENT_CACHE = .CACHECVCASC_EXTCACHE); 


IF NOT .CACHECVCASV_EXTC_VALID) 
THEN INIT_EXT_CACHE~(. CACHE); 


IF NOT .CACHECVCASV_EXTC_VALID) 
THEN 


BEGIN 
RETURN_BITMAP (.START_LBN, .BLOCK_COUNT); 
pas GLEXTMISS = .PMSSGL_EXTMISS ? 1; 
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> 443 1638 : 
> 4466 14 ! Return the blocks to the cache. If the cache is full or if it now > gh : 
: rey 1° S : more space than we want, then purge it to half and/or below the Limit : 
3 44 1440 : 
: 448 1441 : 
: 449 Jaee SE BEGIN : 
; 450 144 IF NOT RETURN N_EXTENT (,START_LBN, .BLOCK_COUNT) : 
: $2] 1466 THEN ERR_EXIT~(SS$_BADFILEHDR); ; 
3 ret 1446 EXT_LIMIT = .EXTENT_CACHECVCASW BXTLIBIy 
; 454 144 EMUL (EXT Limit CURRENT -VCBEVCE L_FREE * gREF (0), TEMP); 
: 455 1448 EDIV (ZREF (1006), IAT BuANT NS 
: 456 1449 IF .EXTENT_CACHECVCASW PEexte FCOUN Airy! GEQU EXTENT CACHELVCASU. EXTSIZE) 
; 457 1450 OR .EXTENT_CACHECVCASL_EXTTOTAL) GTRU .CACHE_CIMIT 
: 4658 1451 THEN 
: 459 1438 4 BEGIN 
; 460 1453 4 PURGE EXTENT (.EXTENT CACHECVCASW_EXTSIZE] / 2, .CACHE_LIMIT); 
3; 461 1454 4 PMSSGC_EXTMISS = .PMSSGL_EXTMISS 7 1; 
; 46¢ 1455 4 € 
: 46 1456 ; ELSE 
: 664 1457 p: mssél WEXTHIT = .PMSSGL_EXTHIT + 1; 
3; 465 1458 
: 466 1459 
: 467 1460 CURRENT_VCBCVCBSL_FREE] = .CURRENT_VCBLVCBSL_FREE] + .BLOCK_COUNT; 
; 469 1462 1 END; ! end of routine RETURN_BLOCKS 
000 00 -ENTRY RETURN BLOCKS, Save R2,R3 3 1322 
5E 08 ¢ 3 SUBL2 - SP 3 
08 at D 0 TSTL BLOCK. COUNT : 1386 
03 (1 08 BNEQ 1 : 
0090 3 OA BRW 3 
51 04 ac 08 ac C1 1$: ADDL3 BL Ck COUNT, START_LBN, R1 : 1392 
50 94 AA 00 1 MOVL -1 (BASE) R : 
0080 60 1 D1 0001 CMPL = RT: 176CROS : 
F IA ic BGTRU 4$ : 
50 98 AA 00 1 MOVL -104(BASE), RO : 1400 
51 3¢ 60 AO 3 MOVZ2WL 60(RO), RI : 
7E 99 04 AC 1 7A EMUL #1, START_LBN, #0, -(SP) ; 
51 1 SE 1 C EDIV. Ri, (SP)4#> R1, RI : 
1 OD 1 TSTL RQ] : 
68 1 BNEQ 4$ 3 
50 3CC«dA 3¢ MOVZWL 60(RO), RO + 1401 
7E 90 08 AC 1 7A EMUL #1, BLOCK COUNT #0, -(SP) ; 
50 0 8E 7 F EDIV RO. (SP)+7 RO, RO : 
eine = awh : 
18 Of AC CE § BLBC ERASE_REQUESTED, 2$ : 1408 
FF CA BO f PUSHL  -136(BASE) + 1410 
00006 CF 8 oS FB 3 CALLS BS, ERASE BLOCKS 
> ° 
6 g EB 9 8S STATUS, 5s ; 
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04 80 AA €9 0005 BLBC  -128(BASE), 2$ ; 141 
80 AA 0 60 46 MOVW STATUS, -128(BASE) : . 
00006 CF 0 F 64 28: CALLS #9 ALLOCATION_LOCK + 1417 
28 AA D 9 MOVL =104(BASE) + 1426 
be he 5 MOVE $9(RO), CACHE CACHE * 1425 
17 oB A E 4 § a it tkche a a : 1037 
é DD OOO7A PUSHL CACHE + 1428 
0000v CF FB 7¢ CALLS #1, INIT EXT CACHE : 
08 0B A2 1 5 0081 BBS #1, 11(CKCHET, 3$ : 1430 
7E 04 ac 2D MOV START_LBN, -(§P) + 143 
0000v CF 0 8 A CALLS ae. RETURN_BI TMAP : 
4o 1 F BRB 7 + 1436 
7E 04 AC 7D 00091 38: MOVa TART_LBN, =(SP) + 1443 
0000v CF 4 095 CALLS #2, + RETURN, EXTENT 3 
05 E8 O009A BLBS 5 : 
0810 &F iy 9090 4$: cHMU #2064 + 1664 
51 08 A3 3C OOOA2 S$: MOVZWL ate TENT T CACHED EXT_LIMIT + 1446 
50 98 AA 00 OOA6 MOVL t 1447 
3 00 40 AO 51 7A OOOAA EMUL IM, 64 (RO) #0, TEMP : 
51 590 of 00000368 8F 78 000B0 EDIV a 100 TEMP, CACHE AL MIT, DUMMY + 1448 
6 02 A3 61 00089 CMPW =. 2( EXTENT_CACHE), CENTEMT. * CACHE) + 1449 
06 1€ 0008D BGEQU : 
50 06 A3 01 000BF CMPL 4 (EXTENT_CACHE), CACHE_LIMIT + 1450 
16 1B 000C BLEGU 8S St 
30 pd 00C5 6$: PUSHL CACHE_LIMIT + 1453 | 
50 6 C 000C7 MOVZWL cExTER CACHE), RO 3 
7E 50 02 C7 OOOCA DIVL3 ‘ =(SP) ; 
0000v CF FB O0CE CALLS * BURGE EXTENT ; 
000000006 00 06 000D3 7s: INCL Passer _EXTMISS : 1654 
06 11 00009 BRB 9$ : 1449 
000000006 00 06 0008 8$: INCL PMSS$GL_EXTHIT : 1457 
6 98 AA DO OOOE1 9$: MOVL -104(BASE), RO : 1460 
40 AO 08 ac co O00E5 ADDL2 BLOCK. Count, 64 (RO) : 
04 OOOEA RET > 1462 
: Routine Size: 235 bytes, Routine Base: S$CODE$ + 0170 
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; ree 106? } GLOBAL ROUTINE INIT_EXT_CACHE (CACHE) : L_NORM NOVALUE = | : 
; 47 1465 1 lee : 
> 474 re ¢ , ; : 
> 475 1467 1 ! FUNCTIONAL DESCRIPTION: : 
> 476 1468 1! : 
; 477 1469 1! This routine sets up the extent cache interlock as necessary ; 
; 478 1470 1! and marks the cache valid, if this is possible, considering ; 
; 4 100] : dismount state of the volume and write access to the storage map. : 
; 481 1298 1! CALLING SEQUENCE: ‘ 
: 48 1474 1! INITLEXT_CACHE (CACHE) ‘ 
; 48 1475 1! : 
> 484 1Or8 1 ! INPUT PARAMETERS: : 
> «4485 1477 1! CACHE: pointer to main cache block ; 
: 486 1478 1! : 
; 487 1479 1! IMPLICIT INPUTS: : 
; 488 1480 1! NONE 3 
; 489 1481 1! : 
; 490 one 1 ! OUTPUT PARAMETERS: ; 
: 491 1483 1! NONE : 
: 49 1484 1! : 
; 49 1485 1 ! IMPLICIT OUTPUTS: : 
3 4% 1486 1! NONE 
; 495 1487 1! : 
; 496 1488 1 ! ROUTINE VALUE: : 
; 497 1489 1! NONE : 
: 498 1490 1! | : 
; 499 1491 1! SIDE EFFECTS: : 
: $00 Hd 1! cache marked valid, lock taken out : 
; 501 1495 1! : 
5 208 1494 1 !e= : 
; 20 1495 1 : 
: 504 1608 BEGIN : 
; 505 149 : 
: 506 1498 MAP : 
: 507 1499 2 CACHE : REF BBLOCK; ! pointer to cache block : 
: 508 1500 : 
: 509 1501 LOC ; : 
: 510 1308 EXT CACHE : REF BBLOCK, ! pointer to file ID cache : 
3: (511 150 BITMAP_FID; ' lock basis for index file 3 
; 21g 1504 : 
: 2} 1505 BIND_ COMMON; : 
;..514 1206 ; 
001 !€550005 15 EXTERNAL : 
2008 'CpSs0005 =: 11508 CLUSGL CLUE : ADDRESSING MODE (GENERAL); : 
7003 !(DS0005 1509 : 
; $15 1510 EXTERNAL ROUTINE : ; : 
; 316 1511 CACHE _LOCK : L NORM; ! acquire special cache lock : 
PORN 3 
: 519 1514 ! If the cache is not currently marked valid, attempt to take out the | : 
; 330 1318 : cache lock if we are in a cluster and may do so. . 
; 53 151 : 
: 3 g 1518 EXT CACHE = .CACHECVCASL EXTCACHE); | : 
; 526 1519 IF ROT .BBLOCK CCURRENT_OCBCUCBSL_DEVCHAR], DEVSV_DMT) : 
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1520 2 AND NOT .CURRENT VCB[VCB$V_wRIT 
1521 AND .EXT_CACHECVCASW_EXTSIZE) G 
15 ¢ THEN 
15 BEGIN 
1524 IF .BBLOCK CCURRENT UCB 
1525 AND .CLUSGL_CLUB NEQ 
15 $ HEN 
1527 4 
1528 4 
1288 4s IF CACRE LOC (.BITMAP_F 
VF 9 ‘ THEN CACRECVCASV_EXTC_9 
1332 ; ELSE 
15 CACHECVCASV_EXTC_VALID) = 1; 
1534 2 END; 
1535 2 
1536 1 END; 
2g 06 Ac 
5 v4 2 
51 94 AA 
45 3A OAT 05 
50 98 AA 
3C 0B Ad 01 
02 $3 
7 
2F 3c CAI 
000000006 99 
50 98 AA 
50 OF A 
50 50 1 
50 9 
oc : 
0000G CF ? 
0D 0 
28 06 A 
OB A 0 
OB A2 02 


89 bytes, Routine Base: 


OF WOODS M FOOD OwWMNOD parts SAs— 54 


ODooomn"sS 
=> 


SCODES + 0258 


VaR SEVS 


[TOU 


a 7 
i art 51 
-0ct-1984 1 


USES. DE VCHARZ), DEV$v_CLU] 


BEGIN 
BITMAP FID = FIDSC_BITMAP OR .CURRENT VCBLVCBSW_RVN] * 36: 
RID, EXT CACHECVCASL EXTCLKIDI, ) 
= 7; 


! end of routine INIT_EXT_CACHE 


ye wa CACHE, Save R2,R3 


ACHE, 

(RQ) EXT_CACHE 
-108(BASE)*> R1 
#5, SB(R1). 2$ 
104 (BASE:. RO 
ai, 11(RO), 2$ 
(EXT_CACHES, #2 
60(R1), 18 


CLUSGL_CLUB 
1$ 


-104(BASE), RO 
14(R0), RO 
436, rb, RO 

#2, BITMAP_FID 
-(§P) 
12(EXT_CACHE) 
B{ TRAP FID 

#3, CACHE _LOCK 
CAcHE. 

#2, Fr cho) 


#2, 11(R2) 
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3 a 1338 } ROUTINE ALLOC_EXTENT (FIB, BLOCKS_NEEDED, START_LBN, BLOCKS_ALLOC) : L_NORM = : 

3; 544 12 9 1 !ee $ 

; 545 1540 1! $ 

; 546 1541 1 =! FUNCTIONAL DESCRIPTION: 5 

> 547 1206 1! 3 

: 348 15435 1! This routine allocates a single contiguous area of disk from ; 

: 549 1844 1! the extent cache. Mode of allocation is determined by the 3 

3 22° 13¢? ! allocation control in the FIB. : 

3 226 1809 1 ' CALLING SEQUENCE: 3 

: 5 1368 1! ALLOC_LEXTENT (ARG1, ARG2, ARG3, ARG4) : 

; 554 1549 1! 3 

s $35 1550 1 ! INPUT PARAMETERS: $ 

; 556 1551 1! ARG1: address of FIB for this operation 3 

3 Sor 1326 1! ARG2: number of blocks to allocate g 

; 338 1553 1! 3 

; $59 1554 1 ! IMPLICIT INPUTS: F 

; 560 1855 1! CURRENT_VCB: ADDRESS OF VCB IN PROCESS 3 

; 20) 1328 : CURRENT_UCB: ADDRESS OF UCB IN PROCESS : 

; 365 1558 1 | OUTPUT PARAMETERS: 3] 
> 564 1559 1! ARG3: address of longword to store starting LBN 3] 
; 20? 1399 : ARG4: address of longword to store block count : 
; 567 1266 1 ! IMPLICIT OUTPUTS: $ } 
; 568 1563 1! LOC_LBN: placement LBN of allocation or 0 3 | 
: 569 1564 1! ONE 1 
; $70 1565 1! | 
; 571 1566 1 ! ROUTINE VALUE: $1] 
; 572 1567 1! f successful allocation a. 
s $75 1568 1! 0 if failure 5 1 
: 574 1569 1! 3 1 
s S$7$ 1570 1 ! SIDE EFFECTS: fet 3 1 
; 576 1571 1! Extent cache modified 5 1 
3; 577 1278 1! $1 
; 578 1573 1 t= 3 1 
; 579 1574 1 | 
; 580 1575 BEGIN 3 | 
; «#581 1376 3 1 
; tae 157 MAP 3 1 
; «4°83 1578 FIB : REF BBLOCK; ! IB or operation 3 | 
> 384 1579 3 | 
s Ses 2 0 LABEL 3 | 
; 256 iF 1 CACHE_SEARCH; ! extent cache search procedure , 
; 588 1388 REGISTER 3 | 
; 28) 1388 EXTENT_LIST : REF BBLOCKVECTOR C,8); ! pointer to extent list : 
; 591 1386 LOCAL 3 | 
: 236 158 EXTENT_CACHE : REF BBLOCK, | pointer to extent cache 3 1 
; 59 1588 BLOCK_COUNT, ! Blocks needed rounded up to cluster 3 
: 594 1589 J ' loop and extent list index z | 
; 595 1590 LON, ' LBN of current extent 3 | 
; 296 1591 OUNT ' block count of current extent | a. 
; 494 CYL_SIZE ! size in blocks of volume’s cylinder 31 
; 598 159 CYL “BOUNDARY; ' LBN of next cylinder boundary 31 
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: 599 1594 

; 600 1595 BIND_COMMON; 

; 601 1 38 

; 60 189 ! Search the extent cache. If placement is specified, check for a match 

; 60 1238 i against the placement LSN. 

; 6046 1599 : 

; 605 1600 

: 4 1981 CACHE SEARCH: BEGIN 

; 608 1808 BLOCK_COUNT = (( ae 4 ind +e CURRENT yeerycesue CLUSTERJ=1) 

: 609 1604 a BCVCB$W_CLOSTERJ) * [CURRENT VCBCVCB “. CLUSTER); 

> 610 1699 EXTENT_CACHE = .BB “epameN veBrY CBSL CACHE, VCASL_EXTCACHE 

; «611 16 : EXTENT_LIST = EXTENT. “CACHE VCASQ_EXTLISTI; 

3 ole 160 

: $} 1608 13 

; 616 1609 WHILE J LEQU EXTENT _CACHECVCASW_EXTCOUNT] 

s 615 1610 d0 

; 616 1611 4 

; 61 1el¢ 4 EXTENT LISTC.J= ‘1 VCASL_EXTLBN); 

> 618 1613 4 COUNT -EXTENT_LISTC.U=1, VCASL_EXTBLOCKS); 

; 619 1614 & 

; 620 1615 4 IF .LOC_LBN EQL 0 

; 621 1616 5 OR (.LOC_LBN GEQU -LBN AND .LOC_LBN LSSU .LBN + .COUNT) 

H ose 1617 & THEN 

; 6 1618 5 BEGIN 

3 os¢ 1619 5 

3 6Ga> 1639 5 ! If placement is specified, adjust the base LBN and count accordingly. 
; 626 1621 5 ! Likewise, if on-cylinder allocation is requested, move the LBN to t e 
; 627 16s¢ 5 | cylinder boundary. Then adjust to the cluster boundary. 
; 628 1623 5! 

; 663 1624 § 

; 650 1625 5 IF .LOC_LBN NEQ 0 THEN LSN = .LOC_LBN / .CURRENT_VCBCVCB$W_CLUSTER] 

; 631 1626 5 * *CUR RENT_VCBCLVCB$W_CLUSTER); 
; $36 1627 5 IF .FIBCFIBSV_ONCYL) 

; 65 1628 5 THEN 

: 634 +4 44 6 BEGIN 

: 635 1630 6 CYL_SIZE = fi tt -UCBCUCBSB_SECTORSJ 

; 636 1631 6 e T-UCBCUCB$B" TRACKS) 

; 637 1o3¢ 6 CURRENT “vVCBCVCB$B_BLOCKFACT); 

; 638 16 6 crt mn: | UNDARY = (.LBR / ts tiba® STZE + 1) * .CYL_SIZE; 

; 639 1634 6 acre NBOUNDARY - .LBN LSSO .BLOCKS_NEEDED 

; 640 1635 8 

; 641 1636 "BEGIN 

: 646 1637 7 if NOT F1BCF 1e8v EXACT) 
3; «664 1638 9 THEN LBN we “BOUNDARY + . CURRENT _VCBCVCB$W CLUSTER) - 

> 664 1639 7 URRENT NVCBLVCBSu- CLUSTER]) * . CURRENT retacvcasu. CLUSTER) 
; 6465 1640 7 FLSE RETURN = 

3; 646 1641 6 END; 

3; 667 ose 5 END; 

; 648 16435 5 

; 6469 1644 5§ IF .LBN GEQU EXTENT_LISTC.J=-1, VCASL_EXTLBN] + .COUNT 

: 650 1645 § THEN COUNT = 

; 93) Hb 5 ELSE COUNT = .COUNT + .EXTENT_LISTC.J-1, VCASL_EXTLBN) - .LBN; | 
: 65 1648 ; ! If the size is sufficient at this point, we win. If not, and the allocation 

; «4654 1649 i is neither exact nor on=-cylinder, try backing off the adjustmencs made 
; «6655 1650 5 | above. Then check the size again; if the allocation is non-contiguous 
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! or if the size is big enough, this is it. 


IF .COUNT GEQU .BLOCK_COUNT 
THEN LEAVE CACHE_SEARTH; 


IF .LOC_LBN NEQ 0 
AND NOT .FIB resv~encr $9 
+ Bg -FIBLFIBSV_EXACT 


BEGIN 

COUNT = MINU ( 

LBN = .EXTENT 
+ EXTENT 
= . COUNT; 


-BLOCK_COUNT, .EXTENT LISTC.J-1, VCASL_EXTBLOCKS)); 
LISTE. J-1, vCaSc_EXxTLON 
“LISTE. J=1, VCASLIEXTBLOCKS) 


IF .COUNT GEQU .BLOCK_COUNT 
OR “(.COUNT NEQ 0 
AND NOT .FIBCFIBS$V_ALCON] 
AND NOT .FIBCFIB$V-ALCONB)) 
THEN LEAVE CACHE. SEARCH; 


ed © Vg 


m 
2 
J 
ee 


' end of cache search loop 
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ETURN 0; 


R whole cache searched = nothing found 
END; ' end of block CACHE_SEARCH 
' 


; 

P) 

6 

6 

6 

6 

$ 

> 

5 

6 

6 

6 

P) 

4 

2 

5 1 We get here if we find a suitable cache entry. Deduct the count neeced 
§ from the count in the entry. If the result is zero, squish out the entry. 
; ' 


sw eet -BLOCK_COUNT); 
HECK (MAPCNTZER, FATAL, ‘Found zero extent in cache’); 


C 
STC.J=1, VCASL_EXTBLOCKS) = .EXTENT_LISTC.J-1, VCASL_EXTBLOCKS] = . COUNT; 
T_LISTC.U-1, VCASL_EXTBLOCKS) EQL 0 


EXTENT_LISTC.J, VCASC_EXTBLOCKS) 
EXTENT bist -J=1, VCASL EXTBLOCK$) 
VCASW_EXTCOUNT] = . 


SMOVE (( EXTENT Se weas EXTCOUNT]-,J)*8, 
): 
EXTENT_CACHELVCASW_EXTCOUNT] = 1; 


EXTENT_CACHE 
END 


! Otherwise the allocation is gg At of the extent. If it is from the 


! front of the extent, recompute the starting LBN of the extent. 


then IF .EXTENT_LISTC.J-1, VCASL_EXTLBN) EQL .LBN 
EXTENT_LISTC.J-1, VCASL_EXTLBN) = .EXTENT_LISTC.J-1, VCASL_EXTLBN) + .COUNT 


! If the allocation is from the end of the extent, no further action is necessary. 


ec ee ee ee el el ee ee el ee ee ee 
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SN 
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s i> 1708 : If it is from the middle, we must split the extent. To do so, shuffle the 
; 716 1709 i remainder of the extent list up by one, bump the entry count, and compute 
; 6213 1710 ! the split entries. 

He Og! 

: oe 1718 FUSE IF .EXTENT_LISTC.J=1, VCASL_EXTLBN] + .EXTENT_LISTC.J=1, VCASL_EXTBLOCKS] NEQ .LBN 
: 720 1715 BEGIN 

: 721 1218 CHSMOVE (( EXTENT _CACHECVCASW_EXTCOUNT]-.J)*8, 

a. g 171 EXTENT_LISTC.J, VCASC EXTBLOCK ksi 

i. 1718 EXTENT bist “J41, rch ASL_EXTBLOCKS)) 

: ee 1719 EXTENT_CACHELVCASW EXT COUNT EXTENT “EACHELVCASU, EXTCOUNT] + 1; 

3; fe5 1720 EXTENT_LISTE.J, VCASL_EXTLBN) = .COUNT™+ N; 

3 726 1721 EXTENT_LISTC.J, VCASL-EXTBLOCKS) = EXTENT LISTE. J-1, VCASL_EXTBLOCKS) 
: Ct 4 ¢ he ag “LIST ft’ VCASL_EXTLBN 

; re? 1953 EXTENT_LISTC.J=1, VCASL -EXTBLOCKS] = 2 EXTENT LISTC.J-1, VCASL_EXTBLOCKS] 
; 730 153 XTENT_LISTC.J, VCASL_ERTBLOCKS); 
; 731 1726 END; 

: ee 1727 

: 73 1728 . START LEN = -LBN 

> 734 1789 -BLOCKS_A LOC = . COUN 

3 aH 1739 § EXTENT cathe VCASL OPKTHOTAL) = ~EXTENT_CACHECVCASL_EXTTOTAL] = . COUNT; 

s- Var 736 2 RETURN 1; 

; 738 1733 2 

; 739 1734 1 END; ! end of routine ALLOC_EXTENT 


-EXTRN BUGS_MAPCNTZER 
OBFC 00000 ALLOC_EXTENT: 
WORD 


2 Save R2,R3,R4,R5,R6,R7,R8,R9.R11 ; 

SE oc 000 SUBL2 #12, SP : 
08 AE 98 AA §@ 000 MOVAB -104(BASE), 8(SP) ; 
50 8 8B pO 000A MOVL a8(sP), RO : 
51 EF OO0E MOVZWL 60(RO). RI ; 
51 08 Ac 5 001 ADDL2 BLOCKS. NEEDED, R1 : 
51 p 0016 DECL ; 

52 3c «= AO 3:«00018 MOVZWL 60(RO), R2 : 
51 5 c6 001C DIVL2 R2, RI : 
53 3c }6=— As 3C.:«COOOTE MOVZWL 60¢RO), R3 : 
31 53 C4 3 MULL2  R3, BLOCK COUNT : 
0 08 BE D é MOVL a8(sP). 9 : 
30 AO D A MOVL  88(RO ; 
5 06 =A p MOVL  4(RO), EXTENT CACHE : 
56 2c COA 3 MOVAB 44(R75, EXTENT_LIST : 
38 . § MOVL #1, J ; 
58 02 a7 1 ‘ D 1$: cMPLy 40. #16, 2CEXTENT_CACHE), J 
018D f 41 38: BRW 35s ; 

4 6648 44 3$: MOVAQ (EXTENT_LIST)(J), R4 : 
9 FC OG OO 48 MOVL =4(R4),"LBN : 
54 0 4C MOVL R4, R2 : 

3 F A2 D 4F MOVL pine COUNT ; 
20 AA 00 00053 MOVL  32(BASE), R3 ; 
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3 i) i 5 ! ROUTINE RETURN_EXTENT (START_LBN, BLOCK_COUNT) : L_NORM = : 
s 7 17 § 1 !¢¢ ; 
> 744 1738 1! 3 
; oe? 1t72 ! FUNCTIONAL DESCRIPTION: : 
3 res 1741 1! This routine returns the indicated extent to the extent cache. ° 
; 748 reg 1} It searches the cache to insert the entry in LBN order, and merges ; 
3; 749 1745 1! it with any adjacent entries. If the extent overlaps existing : 
s 750 1744 1! entries, an error return is made. : 
3 6) 1745 1! ; 
3 Peg fag 1! ; 
: & 1747 1! CALLING SEQUENCE: : 
s 756 1748 1! RETURN_EXTENT (ARG1, ARG2) . 
» Ise 1749 1! ; 
s 1% 1750 1 ! INPUT PARAMETERS: ; 
3 for 1751 7! RG1: starting LBN of extent : 
s 738 \73¢ 1! ARG2: block count : 
; 759 1755 1! : 
; 760 1754 1 3! IMPLICIT INPUTS: ; 
: 761 T2. 2 CURRENT_VCB: VCB of volume : 
; 76 1756 1! ‘ 
: 76 1757 1 =! OUTPUT PARAMETERS: ; 
> 764 1758 1! NONE . 
: 765 1759 1! : 
; 766 1760 1 ! IMPLICIT OUTPUTS: ; 
3; 767 1761 1°! NONE : 
; 768 1766 1! : 
: 769 1763 1 ! ROUTINE VALUE: ; 
; 770 1764 1! if successful ; 
s 771 1765 1! 0 if blocks overlap ; 
. or 1766 1! : 
; 77 1767 1°! SIDE EFFECTS: ; 
: 776 1768 1! extent cache modified ; 
3: 775 1769 1! : 
er 1770 1 !== : 
; 77 1771 «1 : 
: 778 176 2 BEGIN 2 
; 779 177 $ . 
; 780 1774 LOCAL : 
3 «fel 1775 2 EXTENT_CACHE : REF BBLOCK, ! pointer to extent cache : 
3; fe 1776 EXTENT_LIST : REF BBLOCKVECTOR (,8), ! pointer to extent List : 
; 78 1777 J: ' extent List index : 
: oe 1778 : 
; 785 177 BIND_ COMMON; : 
: ree 1780 , . 
: 7 1781 ! Search the extent cache until we find an entry whose start LBN is : 
; ree res higher than the end LBN of the extent being returned. : 
; 790 1 784 . 
; 791 1785 IF .BLOCK_COUNT LEQ 0 : 
: ” 1736 THEN BUG_CHECK (MAPCNTZER, FATAL, ‘Attempted to return zero extent to cache’): : 
: 79% 17 3 EXTENT_CACHE = .BBLOCK £ CURRENT .VCOCVCBSL CACHE. VCASL_EXTCACHE); 3 
§ ey? if ; EXTENT LIST = EXTENT_CACHELCVCASQ_EXTLISTJ; : 
: 79 1791 UNTIL .J GTRU .EXTENT_CACHECVCASW_EXTCOUNT) 3 
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; 798 1738 dO 3 
; 799 179 BEGIN i 
: 00 1794 IF_ .EXTENT_LISTC.J=1, VCASL_EXTLBN] GEQU .START_LBN + -BLOCK_ COUNT ; 
3 01 1795 THEN EXITLOOP; $ 
: 80 1798 J2= J; ; 
; 179 END; 3 
3 04 1738 3 
3 rit 1228 } If there is a preceding entry, check it for overlap. : 
; 807 1801 : 
: 808 1306 IF .J GTRU 1 3 
; 09 180 THEN : 
; 10 1804 GIN 3 
: Bi) 1302 IF .EXTENT LISTC.J=-2, VCASL_EXTLBN] + .EXTENT_LISTC.J-2, VCASL_EXTBLOCKS] ; 
3 \¢ 1 06 GTRU pBTART ALON 3 
3 $i 130 THEN RETURN QO; ; 
3 814 1808 D; 3 
; 4815 1809 3 
; 816 1810 : Check for adjacency with the preceding and current extents; if so, do ; 
; 817 1811 ! @ merge. F 
; 818 1si¢ ! PF 
; 819 181 s 
: 820 1814 IF .J GTRU 1 3 
; 821 1815 AND .EXTENT LISTC.J=-2, VCASL_EXTLBN] + sEXTENT_LISTC.J-2, VCASL_EXTBLOCKS] ‘ 
H BS¢ 1816 L » START_LBN 3 
3 82 1817 THEN 5 
3; 824 1818 BEGIN 3 
3 34 133) EXTENT_LISTC.J-2, VCASL_EXTBLOCKS] = .EXTENT_LISTC.J-2, VCASL_EXTBLOCKS)] * .BLOCK_COUNT; : 
: Ha 1821 IF .J LEQU .EXTENT_CACHECVCASW_EXTCOUNT] : 
; 828 1366 AND .EXTENT_LISTC.J=1, VCASL_ERTLBN) EQL .START_LBN 4 .BLOCK_COUNT 3 
3 4 182 THEN 3 
3; 8 1824 4 N : 
3 oe 1825 4 EXTENT LISTC.J-2, VCASL_EXTBLOCKS] = : 
3 3 1826 4 ~ERTENT_LIST “dng QCASL_EXTBLOCK 3 
; 83 18 4 + ,EXTENT LISTL.J-1, at EXTBLOCKS]; : 
: 834 1828 4 CHSMOVE ((. EXTENT CACHELCVCAS@_EXTCOUNTJ-.J)*8, ; 
; 835 1829 4 EXTENT_LISTC.J, VCASC_EXTBLOCKS), 3 
: 836 1830 4 EXTENT List .J-1, yCASL EXTBLOCKS)); 3 
; 837 1831 4 EXTENT_CACHECVCA W_EXTCOUNT) = -EXTENT_CACHELVCASW_EXTCOUNT) - 1; : 
; 838 1836 END; . 
3 $73 18 END 3 
; 840 1834 : 
: 41 \3 5 ELSE IF .J LEQU .EXTENT_CACHECVCASW_EXTCOUNT] é 
3 4g 1 § AND .EXTENT_LISTC.J-1, VCASL_ERTLBN) EQL -START_LBN + .BLOCK_COUNT 3 
: Bee 1838 "BEGIN 
: 45 1839 ex TENT Sth .Jml- VCASL_EXTBLOCKS) = .EXTENT_LISTC.J-1, VCASL_EXTBLOCKS] + .BLOCK_COUNT; é 
3 ré 1st) EXTENT _LISTE.J-1, VCASL_EXTLBN] = .START_LBN; : 
: 1841 END 3 
; 848 1 ri} ; 
3 49 184 ELSE : 
; 50 1844 BEGIN é 
s 51 1845 CHSMOVE ((.EXTENT_CA we CyCASy ExT COUNT Fe od 1)*6. : 
3 25 1 rf] EXTENT_LISTC.J=-1, VCASL_EXTBLOCKS), 3 
3 5 184 EXTENT-LISTC.J, VCASL_ERTBLOCKS)); ; 
; 854 1848 EXTENT_LISTC.J-T, VCASL_EXTBLOCKS) = .BLOCK_COUNT; 3 
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; 855 1849 EXTENT _LISTC,J-1, VCASL_EXTLBN) = .START_LBN: 

; is } 29 EXTENT-CACHECVCASW_EXTCOUNT = .EXTENT_CACHELVCASW_EXTCOUNT] + 1; 

: 858 185 : 

; 523 ! 38 EXTENT _CACHECVCASL_EXTTOTAL] = .EXTENT_CACHECVCASL_EXTTOTAL] + .BLOCK_COUNT; 
: 861 1855 2 RETURN 1; 

; Boe 1828 

; 86 1857 1 END; ! end of routine RETURN_EXTENT 


O1FC 00000 RETURN_EXTENT: 
WORD 


. Save R2,R3,R4,R5,R6,R7,R8 : : 

08 AC 05 C000 TSTL BLOCK_COUNT > 1785 ; 

04 14 0000 BGTR : ; 

FEFF 00007 BUGW : 1786 : 

0000* 99009 «WORD <AuGs MAPCNTZER!4> : : 

50 98 AA DO 00008 1$: MOVL =104(BASE), RO + 1788 ; 

50 58 Ad DO O000F MOVL RO), R : ; 

57 4 Ad 00 0013 MOVL 4(RO), EXTENT CACHE : ; 

56 C A? 9E 0001 MOVAB 44(R75, EXTENT_LIST : 1789 ; 

58 01 p00 0001B MOVL #1, J : 1790 : 

53 046 AC 08 aC Ci OOO1E ADDL3 BLOCK COUNT, START_LBN, R3 : 1794 : 
58 02 A7 10 90 ED 999 4 28: CMPZ7vV #0, #76, 2(EXTENT_CACHE), J : 1791 : 
D 1F OOO2A BLSSU 3$ : : 

FC A648 7F 0002C PUSHAQ =4(EXTENT_LIST)(J3 : 1794 ; 

53 9€ D1 000 CMPL (SP)+, R3 : F 

& 1€ 000 BGEQU : ; 

8 D6 000 INCL } : 1796 3 

B 11 000 BRB $ : 1791 : 

D4 00039 38: CLRL sR : 1802 ; 

01 D1 000 CMPL SJ, #1 : F 

18 18 000 BLequ 4§ ; ; 

5 b6 004 INCL R2 3 3 

51 664 : 004 MOVAQ (EXTENT_LIST)CUJ, R1 : 1805 ; 

50 51 00 0004 v R : ; 

51 Fe OAT FO AO C1 ADDL3 -16(RO), -12(R1), R1 ; ; 
04 Ac 51 01 CMPL  -R1, START_LBN > 1806 ; 

03 18 BLEGU 4$ ; 3 

OOAE 3 BRW : ; 

57 5 59 BLBC =—s_«aR2,”_ S$ > 1814 ; 

1 664 . MOVAG (EXTENT_LIST)CJJ, R1 : 181° : 

50 51 D MOVL 3 : 

51 fe OAT FO 360AO OC ADDL3 -16(RO), =12(R1), RI : : 
04 Ac 51 01 CMPL = =-R1, START_LBN > 1816 ; 

44 12 BNEQ $ ; g 

FO A648 7F PUSHAQ =-16(EXTENT_LIST)CJ) + 1819 : 

9 08 ac co ADDL2 BLOCK_COUNT, a(SP)+ ; : 

58 02 a7 1 90 FD cAPzV ‘ , #16, 2CEXTENT_CACHE), J > 1821 3 
50 046 Ac ac cI ADDL3 BLOCK_COUNT, START_LBN, RO > 1822 3 
FC A64B PF PUSHAQ =4(EXTENT LIST)(J) ; ; 

50 3 } CMPL acsP)+, RO $ 3 

2 BNEQ $ 3 s 
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“16(EXTENT _LIST)CJ) 

“8 (EXTENT cist) 

9(SP)e. avsP)+ 
(EXTENT_CACHE), RO 

J, RO 

a RO 

-8(EXTENT List) (JJ 

(EXTENT LIST) CJ 

RO, a(SP)+, a(SP)+ 

g (EXTENT CACHE) 

a cext NT_LIST)CuJ, R1 

#9, #16, 2(EXTENT_CACHE), J 

-4(EXTENT_LIST) CJ] 

a(SP)+, R3 


BLOCK COUNT, ( 
4 (EXTENT _LIST) (JJ 
TART_LBN; @(SP)+ 


@CEXTENT CACHE), RO 


C 
BLOCK_ COON 
#1, RO 


RO 


————— + - — 


row 


1827 


1828 


1830 
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: 865 1838 ! GLOBAL ROUTINE PURGE _EXTENT (ENTRY_COUNT, CACHE_LIMIT) : L_NORM NOVALUE = 
; 86 1860 1 !e4 

; 868 1861 1! 

; 869 1308 1 ! FUNCTIONAL DESCRIPTION: 

> 870 136 77 

; 871 1864 1! This routine removes the spec ified number of entries from the 

; 4 1307 ! extent cache and returns the blocks to the storage bitmap. 

: 74 1867 1! 

; 875 1868 1 ! CALLING SEQUENCE: 

; 578 1398 . PURGE _EXTENT (ARG1, ARG2) 

3; Sf 1870 1! 

; 878 1871 1 ! INPUT PARAMETERS: 

; 879 1378 1! ARG1: number of entries to retain 

3 nt + 14, ! ARG2: total number of blocks to retain in cache 

; +88 1875 1 ! IMPLICIT INPUTS: 

; 88 1976 1! CURRENT_VCB: VCB of volume 

; 884 1877 1! 

; 4885 1878 1 ! OUTPUT PARAMETERS: 

; 886 1879 1! NONE 

; 887 1880 1! 

; 888 1881 1°! IMPLICIT OUTPUTS: 

; 889 13e6 1! NONE 

; 890 1883 1! 

; 4891 1884 1 ! ROUTINE VALUE: 

; 89 1885 1! NONE 

; 89 1886 1! 

; 89% 1887 1 | SIDE EFFECTS: ont 

; 895 1888 1! extent cache and storage bitmap modified 

; 896 1889 1! 

; 897 1890 1 !-- 

; 898 1891 1 

; 899 1338 BEGIN 

; 900 189 

: 901 1894 BUILTIN FP; 

; We 1895 

> 908 189% 2 LOCAL 

; 904 1897 EXTENT_CACHE : REF BBLOCK, ! 9p tigger to extent cache . 

; 905 1898 EXTENT_LIST : REF BBLOCKVECTOR (,8), ! pointer to extent List 
; 906 1899 BLOCK, ! bitmap block number of current extent 
; 907 1900 ° ! bitmap block number of best group 
; 908 1901 COUNT ! count of entries in current group 
: 909 13N6 BLOCKS, ' block count in current group 

; 910 190 BASE _J ! cache index of start of current map block 
; 911 1904 BEST~ COUNT ' count of entries in best group 

: 912 1905 BEST“BLOCKS, i count of blocks in best group 

; (91 1908 Tide ! index of start of best group 

: 916 190 MOST_BLOCKS, ! count of blocks in largest group 
; «915 1908 MOST J, ! starting index on largest group 
; 916 1909 BLOCRS_TO_REM, ! number of blocks to remove from cache 
: 3s 1919 BLOCK_COUNT Fb bee 

: P ' count of exten 

; 4h 191¢ LOCK_STATUS : VECTOR (2); ! lock status block 

3; 921 1914 BIND_ COMMON; 


-—~N 


m 8 
SMAL gu jee 13 5 19:33:18 AX-11 Bliss 


32 v4.0-742 Page 28 
=001 ~0ct-1984 1 ve 3 


F11X.BUGSRCISMALOC.B32:1 
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9 1 

9 § 1 EXTERNAL ROUTINE 

924 1 ALLOCATION_LOCK : L_NORM, 

; 2 : ZERO_ON_ERROR; ! return zero on error signal (handler) 
, } Serialize processing against other storage/header allocation/deallocation. 
929 

330 ALLOCATION_LOCK (); 

838 . If we are not removing all the entries, scan the extent cache for the 

837 desired number of entries that reside in the same bitmap block. 

935 

936 EXTENT CACHE = .BBLOCK C.CURRENT_VCBLVCBSL_CACHE], VCASL_EXICACHE); 

832 EXTENT_LIST = EXTENT _CACHECVCASQ_EXTLIST); 

939 3 IF .ENTRY_COUNT NEQ 0 

940 3 THEN 

941 3 GIN 

942 3 BEST_COUNT = 0; 

943 3 BEST“BLOCKS = 0; 

944 3 MOST_BLOCKS = 0; 

945 ; VBN = -1; 


INCR J FROM 1 TO .EXTENT_CACHECVCASW_EXTCOUNT) 


BEGIN 

BLOCK = (.EXTENT LISTC.J-1, VCASL_EXTLBN] / 4096) 
/ .CURRERT_VCBCVCB$w_CLUSTER); 

IF .BLOCK NEQ .VBN 


95 THEN 

954 BEGIN 

955 VBN = .BLOCK; 
956 OUNT = 0; 
957 BLOCKS = 6; 
958 BASE_J = .J; 


END; 
COUNT = .COUNT ¢ 1; 
BLOCKS = .BLOCKS + EXTENT _LISTC.J-1, VCASL_EXTBLOCKS); 


IF .COUNT GTRU .BEST_COUNT 
THEN 


BEST_COUNT = .COUNT; 
BESTBLOCKS = .BLOCKS: 
BEST") = .BASE_J; 

END; 
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971 964 IF .BLOCKS GTRU .MOST_BLOCKS 
972 965 THEN 

97 966 BEGIN 

97% 967 MOST BLOCKS = .BLOCKS; 
975 968 MOST) = .BASE_J; 

976 969 ND; 

977 970 END; 

978 971 
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; 979 1378 ' See what we got from scanning the cache. If removing the greatest number : 
; 980 197 ! of entries will get tery the space reduction, then dc that. Otherwise, : 
; 981 1974 : go for the set of entries with the most space. If that isn't sufficient, | : 
; 98 1975 ! start at the beginning of the cache. ‘ 
: 3s ere | ig | 
> «#985 1978 BLOCKS TO_REM = EXTENT FOCEE VCS EXTTOTAL) - + Seatenaiede | ; 
> 986 1979 IF .CACHE"LIMIT GTRU ,ERTENT_CACHECUCASL_EXTTOTAL ; 
: 987 1980 THEN BLOCRS_TO_REM = 0; é 
: 989 1388 IF .BEST_BLOCKS LSSU .BLOCKS_TO_REM | : 
; 990 138 THEN : 
; (991 1984 4 BEGIN 3 
; 1985 4 BEST J = .MOST_J; ‘ 
; 99 1986 4 F_.MOST BLOCKS LSSU .BLOCKS_TO_REM : 
3 994 1987 4 THEN BEST_J = 1; PF 
Ro ORB ~ ; 
: p44 4 12 VON = (.EXTENT_LISTC.BEST_J-1, VCASL_EXTLBN) / 4096) / .CURRENT_VCB[VCBS$wW_CLUSTER]; : 
; .999 196 : Now scan the extent cache, remove the called for entries, and return ; 
; 1000 199 ! the blocks to the storage bitmap. 3 
; 1001 1994 : : 
: 100 1995 : 
3 100 1996 UNTIL .BEST_J GTRU .EXTENT_CACHECVCASW_EXTCOUNT : 
; 1004 1997 dO 3 
: 1005 1998 4 BEGIN ; 
: 1006 1999 4 LON = EXTENT _LISTC.BEST J-1, VCASL_EXTLBN); : 
: 1007 000 4 IF .CXTENT CATHELVCASL ERTTOTAL) bedu CACHE _LIMIT ; 
; 1008 001 5 AND (.EXTERT CACHECVCASW_EXTCOUNT) LEQU .ENTRY_ COUNT 3 
: 1009 O08 6 OR (.V8) NEQ (.LBN 7 4096) / .CURRENT_VCBCVCBSW_CLUSTER) 3 
3 1010 003 6 AN .ENTRY_COUNT NEQ 0) 3 
3: 1011 004 5 ) : 
; 9 005 4 THEN EXITLOOP; é 
: 101 $008 4 : 
3 10146 007 4 BLOCK COUNT = .EXTENT LISTC.BEST_J-1, VCASL_EXTBLOCKS); ‘ 
: 1015 008 4 IF .ERTENT CACHECVCASC EXTTOTAL]-= .BLOCK COUNT LSSU .CACHE_LIMIT 3 
: 1016 009 4 AND .EXTENT_CACHECVCASQ_EXTCOUNT) LEQU .ERTRY_COUNT 3 
3; 1017 010 4 THEN $ 
3; 1018 011 5 BEGIN : 
3 1019 soig 5 BLOCK_COUNT = .EXTENT CACHECVCASL_EXTTOTAL] = .CACHE_LIMIT; : 
: 1020 013 7 BLOCK-COUNT = ((.BLOCR COUNT + .CORRENT VCBCVCB$W_CLOSTERJ-1) $ 
3 1093 Bie ; oe / .CURRENT_VCBCVCBSW_CLOSTER]) * [CURRENT_VCBCLVCB$W_CLUSTER); : 
: 19 g O16 4 REMOVE _EXTENT (.LBN, .BLOCK_COUNT); ; 
3 ose 01 4 RETURN BITMAP (.L9N, .BLOCK_CUUNT); : 
: 1025 018 END; : 
2 i 3 
: 1028 021 : For a full purge of the extent cache, just sweep through it, releasing 3 
3 1993 0 § : the entries. This is done under a handler so that 1/0 errors do not F 
3 Ht 3 i terminate the operation. At the end, we release the cache lock. : 
; 1036 025 3 
3; 103 0 $ ELSE : 
3; 1034 0 BEGIN s 
3 1085 028 -FP = ZERO_ON_ERROR; | 3 
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; UNTIL -EXTENT_CACHECVCASW_EXTCOUNT] EQL 0 
4 BEGIN 
4 LON = .EXTENT - ISTCO Liat EXTLON) 
4 BLOCK_COUNT =~. EXTENT_LIST 0, ocAsi *EXTBLOCKS); 
4 REMOVE_EXTENT (.LBN, [BLOCK 
4 RE TURN61 TRAP (.LBN, .BLOCK =fouN 1: 
IF gEXTENT CACHECVCASL EXTCLKIDI NEQ 0 
rs BEGIN 
4 LOCK STATUSC I] . a EXTENT CACHECVCASL_EXTCLKID]; 
4 IF NOT SENQW ( PN 
4 EE NODE = = LeKeK. 
4 FLAGS = LCKSM choaue ut OR LCKS$M_SYNCSTS OR LCKSM_CONVERT OR LCKSM_CVTSYS, 
: LKSB = LOCK_STA 
4 THEN BUG_CHECK (XQPERR, FATAL, ‘Unexpected lock manager error’); 
BBL OCK C.CURRENT_VSBCVCBSL_CACHE], VCASV_EXTC_VALID] = 0; 
1 END; ! end of routine PURGE_EXTENT 
.EXTRN ZERO_ON ERROR, SYSSENQW 
.EXTRN BUGS"XOQPER 
OBFC 00000 ENTRY sie EXTENT, Save R2,R3,R4,R5,R6,R7,R8,R9,-=; 
5E 28 C2 0000 SUBL2 #40 
1c AE 98 AA 9E 0000 MOVAB = base) 28(SP) 
00006 CF 00 FB OOO0A CALLS #0 ALLOCATION, LOCK 
50 1¢ BE 00 0000F MOVL a BcEp ye RO 
50 58 a0 00 0013 MOVL  88(RO), RO 
3¢ 04 ad 00 0001 MOVL  4(RO) “EXTENT CACHE 
5 C A2 9E 00018 MOVAB 44(R25, EXTENT_LIST 
AC D5 O001F TSTL ENIR + COUNT” 
12 00022 BNEQ = 
012C 31 00024 BRW 13$ 
B 04 00007 18 CLRL = BEST_COUNT 
18 AE D4 00 9 CLRL = BEST“BLOCKS 
59 D4 C CLRL MOST et OCKS 
16 AE 01 CE 000 MN 
10 AE 02 a2 %3C 000 MOVZWL SexTeNT CACHE), 16(SP) 
51 D4 00 CLAL " 
rt ef 0 9 BRB $ 
50 6341 7 28: MOVAQ (EXTENT 2} 181)Cs) RO 
58 FC a0 00001000 8F ¢ 6 F DIVL3 #6096, = rb 
54 1¢ «6BE 60 048 MOVL 928(s 
$f 3C a : 004 MOVZWL 
08 At 6— C7 000 DIVL3 (SP) eats BLOCK 
16 AE 08 AE O01 00 CMPL LOCK. V VBN 
0B 13 0005A BEQL 
16 AE 08 AE 00 0005¢ MOVL BLOCK, VBN 
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6 7C 0006 CLRO BLOCKS : 1950 
Oc AE i bo Bes MOVL BASE J : 1951 
? D6 067 3$: INCL toy : 1953 
56 F8 AQ CO 00069 ADDL2 UND) , BLOCKS : 1954 
58 D1 $0 CMPL COUNT, BEST_COUNT > 1956 
8 1 BLEQU 4 : 
58 D 7 VL COUNT BEST_COUNT : 1959 
18 AE 6 00 0007 MOVL BLOCKS, BEST_BLOCKS > 1960 
5 OC AE 00 0007 MOVL Base ts e + 1961 
59 36 D1 0 7D 4$ CHP BLOCRS, MOST~BLOCKS + 1964 
59 8 D 99 : MOVL BLOCKS, MOST_BLOCKS : 1967 
04 AE OC AE OD MOVL ®BASE_J. MOST~J : 1968 
AC 51 10 AE F3 OOOBA 5$ AOBL Ed 16(SP). J, 28 : 1940 
50 06 A2 08 ac C OO8F SUBL3 CACHE_CIMIT, 4(EXTENT_CACHE), BLOCKS_TO_REM : 1978 
04 Ae 0 AC Di 00095 CMPL CACHELIMIT, 4(EXTENT-CACHE) : 1979 
9 1B QOO9A BLEGU 6$ : 
0 04 0009C CLRL BLOCKS_TO_REM : 1980 
50 18 AE DI O09 6$ CMPL  BEST_BCOCRS, BLOCKS_TO_REM > 1982 
OC 1€ OOOA BGEQU 7$ : 
55 04 AE DO OO0A4 MOVL  MOST_J, BEST > 1985 
50 59 D1 OO0A8 CMPL § MOST-BLOCKS, ~BLOCKS_TO_REM : 1986 
03 3 O00AB BGEQU 7$ : 
55 07 p OOAD MOVL #1, BEST_J > 1987 
FC A345 7F OOOBO 7$: PUSHAQ sa {EXTENT LIST)CBEST_JI : 1990 
50 9E 00001000 8F C7 00084 DIVL3 #4096, a(SP)+, RO ; 
51 iC BE Bo 000BC OVL  @28(SP), RI : 
54 3¢ = als 3€:«000C0 MOVZWL 60(R1), R4 : 
AE 50 54 C7? 000C4 DIVL3 R4, RO. VBN : 
A2 10 00 ED 000C9 8s CMP2V #0, #16, 2(EXTENT_CACHE), BEST_J > 1996 
01 1 OOOCF BGEQU 9$ : 
04 00001 RET : 
50 6345 7E 000D2 9$ MOVAQ (EXTENT -L1ST) (BEST _J], RO : 1999 
56 FC AO 00 00006 MOVL =4(RO),"LBN : 
08 AC 04 A2 01 OOODA CMPL 4CEXTENT CACHE), CACHE_LIMIT + 2000 
39 1A OOODF BGTRU : 
A2 10 0 €D OOE| CMPZ2V #0, #16, 2(EXTENT_CACHE), ENTRY_COUNT > 2001 
01 1A O00E8 BGTRU 108 : 
04 OOOEA RET 3 
54 56 00001000 8F C7 QO0E 10$:  DIVL3 #4096, LBN, R4 + 2002 
51 1C «BE pO OOF MOVL @ 8(s P), ri ; 
57 3¢ = A1s3C:«OO0F MOVZWL 60( RiD.'R a : 
54 57 C6 000FB IVL2.R?, : 
54 14 AE p OOFE CMPL  VBN, R4& : 
0 1 BEQL §=:'118 ; 
06 ac 05 001 TSTL — ENTRY_COUNT > 2003 
01 13 00107 BEQL =s«*‘'18 : 
04 001 RET : 
58 F8 = AO OD 1 A11$:  MOVL. -8(RO), BLOCK_COUNT > 2007 
50 04 A2 C3 001 SUBL3 BLOCK COUNT, S(EXTENT_CACHE), RO : 2008 
08 Ac Di 0011 CMPL RO, CACHE_LIMIT : 
5 1€ 0011 BGEGU 128 : 
A2 10 0 FD 119 CMPZV 1 { #16, 2C(EXTENT_CACHE), ENTRY_COUNT > 2009 
58 04 A 08 ac C3 001 ; UBL3 CACHE_LIMIT, 4(EXTENT_CACHE), BLOCK_COUNT ; 01 
; 1C BE 00 1 VL. @28( SP), RO : 201 
€ CO 0012¢ ADDL2 #60, : 


<u 


SMALOC 
v04-001 
0 6 C QO012F 
: FF noe ‘ ! ¢ 
58 1 ; C 13A 
0140 F BB 001 
0000v CF 2 FB 0014 
0140 F BB 0014 
0000v CF ¢ ° 14 
FF 1 
6D worse CF 01 
TR ABs 
56 04 AS D0 00150 
58 g DO 00161 
0140 F BB 00164 
0000v CF 02 FB 00168 
0140 +8 BB 00160 
0000v CF 2 FB Rett 
oc 8 od Bi 
35 13 00178 
24 OC A2 00 00170 
7E 7C 00182 
7E 7C 00184 
7E 7C 00186 
7E 04 00188 
7 SE 8F 9A 0018A 
40 AE 9F Bat Sf 
7E 1E 70 00191 
000000006 00 08 fe 00194 
» 04 50 E8 00198 
FEFF Bot Be 
0000+ 4d 
56 1¢ =6©BE DO 001A2 
50 58 AQ 00 001A6 
0B Ad 02 8A OO1AA 
04 OO1AE 


; Routine Size: 431 bytes, Routine Base: S$CODE$ + 0591 
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MOVZWL (RO), RO 

OVA -1(RO)CBLOCK_COUNT), R1 

MULL M4 R1, BLOCK_COUNT 
128: PUSHR  #*M<R6.RB> 

CALLS #2, REMOVE_EXTENT 

PUSHR #*M< > 

CALLS #2. RE TURN_B1 TMAP 
13$: | MOVAB ZERO_ON_ERROR, (FP) 
14$: TSTW (EXTENT. CACHE) 

BEQL 5 

MOVL 4(EXTENT_LIST), LBN 

MOVL (EXTENT _CIST), BLOCK_COUNT 

PUSHR #*M<R6,RB> 

CALLS #2, REMOVE_EXTENT 

PUSHR  #°M<R6,RB> 

CALLS #2, RETURN_BITMAP 

BRB 14$ 
15$: TSTL 12C¢EXTENT_CACHE) 

BEQL 16$ 

MOVL 12(EXTENT_CACHE), LOCK_STATUS+4 

CLRQ  =(SP) 

CLRQ = =( SP) 

CLRO  -=(SP) 

CLRL isp) 

MOVZBL #78, -(SP) 

PUSHAB LOCK STATUS 

MOVO #30, ~=(SP) 

CALLS #11. SYSSENQW 

BLB 0, 16$ 

BUGW 

«WORD <BUG$_XOPERR!4> 
16$:  MOVL a28(SP), RO 


MOVL 88(RO), RO 
Bi CBe #2, 11(R0) 
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3 196) 8 ; ! ROUTINE REMOVE_EXTENT (LBN, COUNT) : LNORM = : 
: 106 055 1 te4 : 
> 1064 0 $1} : 
: : 65 3 : FUNCTIONAL DESCRIPTION: : 
: 106 §38 1 i This routine removes the indicated number of blocks from the indicated : 
; 1068 060 1! extent in the cache. If the total block count of the extent is removed, 3 
: 1069 061 1! then the extent is eliminated completely. 3 
ore : 
: 107¢ 64 1 | CALLING SEQUENCE: : 
3; 107 os 8G REMOVE_EXTENT (ARG1, ARG2) 3 
3 1074 066 1! 3 
3; 1075 06 1 ! INPUT PARAMETERS: 3 
; 1076 068 1! ARG1: LBN of extent to remove : 
; 1077 2069 1! ARG2: count of blocks to remove i 
: 1078 070 1! 3 
; 1079 2071 1! IMPLICIT INPUTS: Fs 
3 oat O76 : CURRENT_VCB: VCB of volume i 
: 1082 Sond 1 | OUTPUT PARAMETERS: : 
3; 108 $08 1 ! NONE 3 
3; 1086 076 1! : 
; 1085 soe 1 ! IMPLICIT OUTPUTS: $ 
: 1086 078 1! NONE r 
3; 1087 44 1! : 
; 1088 080 1 ! ROUTINE VALUE: $ 
; 1089 081 1! 1 : 
: 1090 2082 1 : 
3; 1091 208 1 ! SIDE EFFECTS: : 
3; 109 2084 1! extent cache altered 3 
: 109 $oee 1! 3 
nn : 
: 1096 2088 2 BEGIN 3 
> 1098 $090 LOCAL : 
: 1099 2091 EXTENT_CACHE : REF BBLOCK, ! pointer to extent cache 3 
; 1tpy O36 EXTENT_LIST : REF BBLOCKVECTOR (,8]; ! pointer to extent List : 
: 1108 094 2 BIND_COMKON: ; 
: 11 036 ! Get the pointer to the extent cache and search it for the LBN. When : 
: 1106 038 } found, squish out the entry. : 
: 110 : 
: 1108 100 EXTENT_CACHE = .BBLOCK (.C ORE eT -VCOCVCERL CACHE. VCASL_EXTCACHE); é 
; 1198 191 EXTENT_LIST = EXTENT_CACHECVCA$SQ_EXTLISTJ; : 
: 111 198 INCR J FROM 1 TO .EXTENT_CACHECVCASW_EXTCOUNT : 
: 118 105 BEGIN ; 
3 11146 1 IF .EXTENT_LISTC.J-1, VCASL_EXTLBN) EQL .LBN : 
tite I nag : 
: 1119 199 4 EXTENT _LISTC.J-1, VCASL_EXTLBN) = .EXTENT_LISTC.J-1, VCASL_EXTLBN) + . COUNT; : 
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ROUTINE ALLOC_BITMAP (FIB, BLOCKS _NEEDED, START_LBN, BLOCKS_ALLOC, PARTIAL) : L_NORM = 
'e¢ 
1 


| FUNCTIONAL DESCRIPTION: 


—— 

— = 
WANA 
ODONOUEW 


This routine allocates a single contiguous area of disk. 
a RP accent is determined by the allocation control 
n the e 


i CALLING SEQUENCE: 
i ALLOC_BITMAP (ARG1, ARG2, ARG3, ARG4, ARGS) 


nn i st 


ot at et ee ee 


WN OS OBNOUES WN ODO ONOULS WO 


' INPUT PARAMETERS: 
ARG1: address of FIB for this operation 
ARG2: number of blocks to allocate 
ARGS: 0 to scan entire ester 
1 to scan only currently resident block 


i IMPLICIT INPUTS: 
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H 1 

s 1 

3 3 1 

s 1 1 

s 1 1 

: 1 1 

: 7 1 

s 1 1 

3 1 1 

3: 1 1 

3 1 1 

3 1 1 

3 1 1 

3 114 1 

3116 1 

3 1146 1 

3 114 1 

3 115 1 

3 115 1 

3 115 si 1 

3 115 144 1 CURRENT_VCB: ADDRESS OF VCB IN PROCESS 

3 V2 13? ! CURRENT_UCB: ADDRESS OF UCB IN PROCESS 

3 115 123 1 ! OUTPUT PARAMETERS: 

3 115 148 1! ARGS: address of longword to store starting LBN 

3 12 4 : ARG4: address of longword to store block count 

3: 116 151 1°! IMPLICIT OUTPUTS: 

3 116 13 1 LOC_LBN: placement LBN of allocation or C0 

: 116 13 1 E 

: 116 154 1! 

3 1164 155 1 ! ROUTINE VALUE: 

: 1165 128 1! if successful allocation 

: 1166 ior «(CY 0 if failure 

3; 116 158 1! 

3 1168 159 1°! SIDE EFFECTS: 

: 1169 160 1! storage map and VCB modified 

: 1170 161 1 

3 1171 1968 1 te- 

: 1126 163 1 

3 117 164 BEGIN 

2 1174 165 

3: 1175 198 BUILTIN 

; 112% 16 3 

3; 117 123 

; 1178 1 MAP 

: iB 109 FIB : REF BBLOCK; ! FIB of request 

3 1181 76 LOCAL 

311 § 17 CLUSTER } 5 uster factor of volume 
; 118 174 QUAD_BLOCKS_NEEDED : VECTOR [2], ! Blocks needed as a quadword 
: 11846 175 BITS NEEDED, ' number 9 map bits to allocate 
3; 1185 178 BEGIR BIT, ' first bitmap bit looked at 
: 118 17 START BIT, ! bit address in storage map 
: 118 178 B1T_COUNT, ' number of bits to scan 

: 1133 17 FIRST SET, ' start of tree area 

7 1189 180 BITS_SCANNED, ! number of bits processed by scanner 
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1190 1 END BIT ! last bit processed 
91 : BEST_STARTBIT i start of largest free area 
38 BEST BITSFOUND, ! size of largest free area 
9 4 CYL_SI ' volume cylinder size in clusters 
94 5 CYL “BOUNDARY, i bit address of next cylinder boundary 
95 § DUMAY; ! Throw-away remainder from EDIV 
8 LABEL 
3 MAP_SCAN; ! code block to scan the storage map 
1 BIND_ COMMON; 
g : Adjust the desired block count to a bit count through the volume 
¢ cluster factor. Set up the running parameters. 


CLUSTER = .CURRENT y BCVCB$W_CLUSTER]; 
QUAD BLOCKS _NEEDEDEG : gOLOCkS NEEDED + CLUSTER = 1; 
} 4 . 
V"(CLUSTER, QUAD_BLOCKS_NEEDED, BITS_NEEDED, DUMMY); 


EST BITSFOUND = 
START_BIT = BEGIN_BIT = - CURRENT _VCBCVCBSB_SBMAPVBN] * 4096; 
CYL_SIZE = .CURRENT_UCBCUCBSB_SECTORS) 

® CB$B_ TRACKS) 


« CURRENT _UCBLU TRACKS 
/ .CURRENT_VCBLVCBS$B_BLOCKFACT); 


DED II III IIIA a ek kk a tk hh ed 


: Get placement data if specified. If the placement LB8N is garbage, fail if 
: exact placement is called for, else forget it. 


FS SRHNOARUN SONS APA OSB UEP ROMO ODO Ie 
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IF .LOC_LBN NEQ 0 
THEN 


BEGIN 
IF tOC_LBN GEQU .CURRENT_UCBCUCBSL_MAXBLOCK] 
EGIN 
IF .FIBCFIBSV_EXACT) 
THEN RETURN 0 
ELSE LOC_LBN = 0; 
START BIT = BEGIN_BIT = .LOC_LBN / .CLUSTER; 


WAPIPOPOROPONoTornoforngs 


od 


The outer loop potentially scans the -_~ twice: once from the given starting 
ee through to the end and then from beginning to end, if necessary to 
ocate a large contiguous area with a bad start. 


MAP_SCAN 
BEGIN 
mgd fe 
BIT_COUNT = .CURRENT_UCBCUCBSL_MAXBLOCK] / .CLUSTER - .START_BIT; 
THEN BIT_COUNT = MINU (.BIT_COUNT, 4096); 
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Now scan the bitmap for the first free block. Having found it, scan 

to see how many free blocks there are there. if it 1$ a non-contiguous 
allocation, accept the blocks regerecess. If it is contiguous, and the 
free area is too small, keep looking. 


WHILE 1 DO 
BEGIN 


IF .LOC_LBN EQL 0 
THEN 


BEGIN 
IF BITSCAN (FIND_SET, .START_BIT, .BIT_COUNT, FIRST SET, BITS_SCANNED) 
THEN EXITLOOP; ! out if end of map 


BIT_COUNT = .BIT_COUNT = .BITS_SCANNED; 


ELSE 
FIRST_SET = .START_BIT; 


If on cylinder allocation is requested, see if sufficient space remains 
between the current point and the next cylinder boundary. If not, nudge 
to the next cylinder boundary if exact is not specified. If exact is 
specified, we allow for a nudge of 1 cluster to allow for the vagaries 
of cluster boundaries. 


IF .FIBCFIBSV_ONCYLI 
THEN 


BEGIN 
CYL_BOUNDARY = ((.FIRST babe ct 


al «CYL_SIZE; 
IF .CYL_BOUNDARY/.CLUSTER - .F] 
THEN 


7E +1) * 
ITS_NEEDED 


CYL_BOUNDARY = (.CYL_BOUNDARY + .CLUSTER = 1) / .CLUSTER; 
RT Bt EXACT 


-LOC_LBN REQ 
AND .CYL BOUNDARY = .FIRST_SET GTRU 1 
THEN RETORN 0; 


BIT_COUNT = .BIT_ COUNT = .CYL_ BOUNDARY + .FIRST_SET; 
IF [BIT_COUNT LEG O THEN EXITCOOP; 
FIRST_SET = .CYL_BOUNDARY; 
END; 
END; 


BITSCAN (FIND CLEAR, .FIRST_SET, MIN (.61T_COUNT, .BITS_NEEDED), 
START_BIT, BITS~SCANNED); 


BIT_COUNT = .BIT_COUNT - .BITS_SCANNED; 
IF .BITS_SCANNED GTRU .BEST_BITSFOUND 
THEN 


BEGIN 
BEST_STARTBIT = .FIRST_SET; 
BEST_BITSFOUND = .BITS_SCANNED; 
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95 
38 IF ,BEST_BITSFOUND GEQU .BITS_NEEDED 
9 OR (NOT T.FIBCFIB$V_ALCON) OR™.FIBCFIB$V_ALCONB) 
a8 AND .BEST BITSFOUND NEQ 0) 
44 THEN LEAVE MAP_SC4N; ! found what we were after 
1 


IF .BIT COUNT EQL 0 


TUSC1) = .BEST_BITSFOUND * .CLUSTER; 


oP 
. 


BITSCAN (CLEAR_BITS, .BEST_STARTBIT, .BEST_BITSFOUND, END_BIT, BITS_SCANNED); 
CURRENT _VCBCVCB$B_SBMAPVBN) = .END_BIT / 4096; 


~START_LBN = .BEST STARTBIT * .CLUSTER; 
-BLOCKS_ALLOC = .BEST_BITSFOUND * .CLUSTER; 


RETURN 1; 
END; ! end of routine ALLOC_BITMAP 
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04 
i 
07 
08 
10 
i o¢ THEN EXTTLOOP; ! end of storage map 
ig 04 : If an exact placement was asked for and we didn't get it, it's all over. 
13 05 Otherwise, forget placement and continue scanning normally. 
16 09 ; 
17 08 : IF .FIBCFIBSV_ALCON] 
18 09 AND .FIBCFIBSV_EXACT) 
19 10 5 D .LOC_LBN NEQ 0 
0 11 THEN RETORN 0; 
1 \3 LOC_LBN = 0; 
338 $e END; ! end of map scan loop 
325 316 4 ! We get here when we run into the end of the storage map. If the scan 
$59 HEA : started in the middle, do it once more from the top. 
356 319 4 
+4 320 4 If .BEGIN_BIT EQL 0 
330 321 4 OR .PARTIAL 
331 356 4 THEN LEAVE MAP_SCAN; 
332 323 4 BEGIN_BIT = START_BIT = 0; 
33 3s 3 END; ! end of outer loop 
te: 3 END; ! end of block MAP_SCAN 
33 % ! We have either found a cluster of free blocks suitable to the occasion 
33 ! or we have searched the entire map. If nothing was found, or for a 
33 ; ' normal contiguous request. return error if the number of blocks is 
33 33 } insufficient; otherwise, allocate the blocks. 
; IF .BEST_BITSFOUND EQL 0 
OR (.FIBTFIBSV_ALCON) AND NOT .FIBCFIBSV_ALCONB) 
; AND .BEST_BITSFOUND LSSU .BITS_NEEDED) 
THEN 
: 


—OOONO UNE WN $C OONONEWN “"OOOnOues 


RIPQPIPIPIPIPIPIPINIPIPPIPINININIPIPOPININIPINPIPIPIPIPUPOPoPPoNoNony 


SOON VEU —OOONO UE WN" OOOnOuw 


oe i, | eee ea 
ett a - genni 387 18: 23: fs AX-11 Bliss=32 V4.0-742 Page Ps 


“Oct-19 F11X.BUGSRCJSMALOC .832;1 


OBFC 00000 ALLOC_B1TMAP: 
;WORD R2,R3,R4,R5,R6,R7,RB,RI,R11 : 2126 
SE 1¢ 2 0000 UBL Hy SP : 
56 0 AA 9E 00 VAB  =128(BASE), R6 + 2189 
59 AA 9 09 MOVAB 32 (BASE) a9 : 
0 8 AA p 0000 VL  =104(BASE), RO + 2197 
4 3c AO 3C 00011 MOVZWL 60(RO), CLUSTER : 
50 4 AC a 0015 ADDL BLOCKS NEEDED CLUSTER + 2198 
16 AE FF AO SE OOOTA MOVAB (RO) BLOC fréDeD ; 
18 AE ps O01F CLRL QUAD BLOCKS OnEE > 2199 
50 58 16 AE 54 7B 00022 EDIV CLUSTER, OUD” SBLOCKS _NEEDED, BITS_NEEDED, - : 2200 
55 D4 00028 CLRL + BEST_BITSFOUND + 2201 
50 98 AA DO 0002A OVL  104TBASE), RO > 2202 
57 38 =A0 9A 000 ; MOVZBL 5S9(RO), BEGIN BIT ; 
57 57 OC 78 000 HL #12 BEGIN GIT, BEGIN.BIT : 
08 AE 57 dO 000 MOVL BEGIN BIT, START_BIT : 
50 94 AA DO O003A MOVL  =108(BASES, RO + 2206 
51 44 AO 9A 00035 MOVZBL 68(RO), + 2205 
50 45 AO 9A 0004 MOVZBL 69(RO). RO ; 
50 51 C4 00046 MULL2 R1, RO : 
51 98 AA 00 00049 MOVL yA BASE: . Rt + 2206 
5B 52. Al «9A 00040 MOVZBL 82(R1), CYL_SIZE : 
5B 50 58 C7 00051 DIVLS CYL SIE. RO. CYL _SIZE Eee: 
69 D3 90055 TL = (RO : 2212 
20 13 0005 BEQL 46-3 : 
50 94 AA D0 00059 VL  =108(BASE), RO t 2215 
0080 60 69 01 0005 CMPL (R9), 176(RO) : 
OD 1F 00062 BLSSU 2S : 
50 04 AC dO 9064 VL —- FIB,_RO > 2218 
03 20 Ad 59 68 BLBC 32(R0), 18 ; 
O1SF 31 006 BRW 20$ : 
9 D4 O006F 18: CLRL_ (RO) : 220 
57 69 4 (C7 00071 28: DIVL3 CLUSTER, (R9), BEGIN_BIT : 2222 
08 Ar 7 p00 0007 MOVL BE GIN Bit, START_BIT~ ; 
5 94 AA 00 0079 3$: MOVL. =108( > 22346 
50 0080 CO 54 C7 0007 DIVL3 CLUSTER, 176(RO) ; 
53 50 08 AE C3 0 SUBL3 START BIT, RO, pit’ ReOUNT : 
14 14 aC E BLBC SARTIAC. "g : 3235 
50 DO C MOVL 8B T COUNT, RO > 2234 
00001000 = &F 0 D1 F CMPL RO, "#4096 : 
5 18 BLEQU : 
50 1000 BF 3 9 MOVZWL #4096, RO : 
5 0 Dd 4$ MOVL 0, BIT_COUNT : 
9 p AO 5$ TSTL (R9) > 2247 
E A BNEO $ : 
oc AE 9F OO0AG PUSHAB BITS SCANNED > 2250 
8 AE 9F QOOA7 PUSHAB FIRST SET : 
53 DD OOOAA PUSHL BIT COUNT : 
16 AE 0D OOOAC PUSHL START_BIT : 
7E D4 QOOAF CLRL. = (SP) : 
0000v CF 05 FB 00081 CALLS #5, BITSCAN : 
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7 170 168: TSTL IN_BIT : 2320. : 
be 3 139 BEQL #68 : | ; 
08 14 AC E 174 BL8S = PARTIAL : 3331 : 
08 At D4 00178 CLRL —s- START Abit’ : 3 | ; 
5 es 178 CLAL GIN-BIT ; ; 
FEF9 31 0017D BRw ; 333 4 : 
33 03 0180 17$: TSTL ie BITSFOUND : 233 : 
12 73 001 BEQL : ; 
50 04 Af 4 yor MOVL 3 2334 | 3 
11 16 AO € 1 BLBC Hid : : 
0c 16 AO 91 EO 0018C¢ BBS 2(R ; ; 
58 5 D1 191 CHPL regina) 198 BITS_NEEDED : 2335 | ; 
06 Ab 55 3 cf 0196 18$ MULL USTER, BEST_BITSFOUND, 4(R6) : 2338 ; 
1 11 00198 BRB $ : 2339 ; 
OC AE 9F 0019D 198: PUSHAB BITS_SCANNED + 2342 ; 
16 AE 9F Boi PUSHAB END BIT : 3 
55 DD OO1A PUSHL BEST_BITSFOUND 3 
OC AE 0D 00185 PUSHL a STARTBIT ; 
03 DD 00188 PUSHL # : 
0000v CF 05 FB OOTAA CALLS ITSCA : 
50 98 AA DO OO1AF MOVL nk FP HES RO : 2344 
51 10 AE 00001000 8F 44 00183 DIVL3 #4096, EN END “BIT, R1 : 
38 =a 51 90 0018¢ MOVE ; 
Oc «BC of 54 C5 001C0 MULL3 CLUSTER. Onest _STARTBIT, @START_LBN + 2246 | 
10 BC 5 54 C5 001C5 MULLS CLUSTER, BEST— “BITSFOUND, @BLOCRS_ALLOC 3 2347 
50 01 00 OO1CA MOVL 1, RO : 2349 
04 001CD RET : 
50 D4 OOICE 208: CLRL RO > 2351 
04 00100 RET : 


; Routine Size: 465 bytes, Routine Base: S$CODES + 07A3 
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: : 28 : ROUTINE RETURN_BITMAP (START_LBN, BLOCK_COUNT) : L_NORM NOVALUE = F 
3 1 54 1 !ee 3 
3 3 ee 3 
; : 2$ : FUNCTIONAL DESCRIPTION: F 
3 : $8 : ; This routine returns a single contiguous area to the storage map. : 
; 7 60 1 ! CALLING SEQUENCE: F 
: : ] : RETURN_BITMAP (ARG1, ARG2) ‘ 
3 1 8 1 ! INPUT PARAMETERS: | 3 
3 1 64 1! ARG1: starting LBN to free : 
3 : 322 : ARG2: number of blocks to free 3 
: 3 $309 1 : IMPLICIT INPUTS: H 
3% 2368 1! CURRENT_VCB: VCB of volume : 
3 1379 2369 1! CURRENT_UCB: UCB of device : 
; 1380 e370 1} : 
; 1381 2371 1 ! OUTPUT PARAMETERS: $ 
3 (1 S $358 zz NONE 3 
; 138 373 1! : 
3 1384 374 1! IMPLICIT OUTPUTS: 3 
; 13585 Re NONE : 
: 1386 2376 1! : 
3; 1387 seen 1 ! ROUTINE VALUE: ; 
>: 1388 378 1! NONE : 
; 1389 Seep 1! : 
; 1390 380 1 ! SIDE EFFECTS: : : 
3; 1391 2381 1! storage map and VCB modified 3 
3 1392 358 1! F 
; 1393 383 1 !-- : 
3: 1394 $ee 1 3 
; 1395 85 2 BEGIN : 
; °396 386 § ‘ 
; 1397 2387 LOCAL : 
; 1398 <388 START BIT, ! starting bit number in storage map 3 
: 1399 2389 B1T_ COUNT, ' number of bits to set 3 
; 1400 2390 DUMAY1, ! dummies to receive return data : 
: pd $30) DUMMY 2; ! from BITSCAN, which is not used 3 
3 1203 338 BIND_COMMON; ‘ 
3: 1404 94 : 
3 1406 336 : First check the blocks being returned against the volume size. 3 
: 140 39 ; 
: 1408 98 IF .START LBN + .BLOCK COUNT GTRU .CURRENT_UCBCUCBSL_MAXBLOCK) : 
3 rs 4 te THEN BUG_CHECK (EXTCACRIV, FATAL, ‘Contents of extent cache is garbage"); 3 
3; 1411 401 : Divide down by the volume cluster factor to convert blocks to storage : 
: ele £86 ! map bits. If “here are non-zero remainders, reject the operation on grounds 3 
3 141 240 ! of a bad file header. 3 
3 14146 2404 : 
3; 1615 405 3 
: 1618 rts] IF .START_LBN MOD .CURRENT_VCBCVCBS$W_CLUSTER] NEQ 0 : 
3; 141 40 THEN BUG _THECK (EXTCACHIV, FATAL, ‘Contents of extent cache is garbage); 3 
> 1418 408 2 START_BIT = .START_LBN / .CURRENT_VCBLVCB$W_CLUSTER); ; 
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: 1419 409 
: 1420 410 IF .BLOCK_C MOD CURRENT VCBCVCBSU CLUSTER] NEQ 0 
> 1421 41] THEN 8 BUG. CHECK (EXTCACHIV, FATAL, ‘Con cfents f extent cache is garbage'); 
; 16 : aig BIT COUNT = .BLOCK_COUNT / PCURRENT _vCB CBSu. CLUSTER); 
3 1426 416 ! Call the bit scanner to set the appropriate 
: 1? 5 oi2 bits. Finally update the volune free block count. 
3 14 § “i$ 
3 44 § 5113 BITSCAN (SET_BITS, .START_BIT, .BIT_COUNT, DUMMY1, DUMMY2); 
3; 1450 420 END; ! end of routine RETURN_BITMAP 
-EXTRN BUGS_EXTCACHIV 
0000 00000 RETURN_BITMAP: 
» WORD a nothing 
5E 08 ¢2 0000 SUBI. 
51 04 Ac 08 ac C1 0000 ADDL Sig ss apr" _LBN, R1 
50 94 AA DO 00008 MOVL -10 (BASE) 
0080 51 D1 O000F CMPL 6(R 
06 18 0014 BLEQU 
FEFF O16 BUGW 
0000* 0001 . WORD oon EXTCACHIV!4> 
50 98 AA 00 OOOIA 18: MOVL 4(BASE), RO 
50 3c =6 ads 3C:«0001 MOVZWL 60(RO), RO 
7E 00 06 Ac 01 7A 000 EMUL #1, START_LBN, #0, =(SP) 
50 50 8E 50 78 000 EDIV. RO, (SP)+> RO, RO 
50 05 0002 TSTL RO 
06 13 O002F BEQL 2s 
FEFF 00031 BUGW 
0000* 000 ; .WORD <BUG$_EXTCACHIV!4> 
50 98 AA 0 0035 2%: MOVL -104 (BASE) 
51 3c — a ¢ 0039 MOVZWL ¢RO) START B 
51 04 AC 51 C? 00030 DIVL3 RT BIT START. _LBN, START_BIT 
50 98 AA 00 00042 MOVL =}06 (BASES. 
50 3C «=A SC: «00046 MOVZWL 60( RO) 
7e 00 08 Ac 1 7A OO04A EMUL Bx dick _COUNT, #0, =(SP) 
50 50 aE 0? 9030 EDIV 0; (SP)+> RO, RO 
50 9 005 TSTL RO 
04 0057 BEQL 3$ 
FEFF Rhee BUGW 
0000+ 00058 .WORD  <BUGS EXTCACHIV!4> 
50 98 AA 0 0050 3$: ROVL -104 (BAS _% 
50 3c COA ¢ 0061 MOV2WL 60(RO), Bite 
50 08 AC 3 C7? 00065 DIVL3 BIT RCOUNT. BLotK. COUNT, BIT_COUNT 
— 0D O06A PUSHL SP ~ 
08 AE F 0006C PUSHAB DUMMY) 
50 oD 990 f PUSHL  BIT_COUNT 
51 op 00071 PUSHL START_BIT 
be dD Bate PUSHL ae 
0000v CF FB 0007 CALLS #5, BITSCAN 
04 0007A RET 


; Routine Size: Routine Base: SCODE$S + 0974 
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ROUTINE BITSCAN (MODE, STARTBIT, BITCOUNT, STOPBIT, LENGTHFOUND) : L_NORM = 


ee 
' 


i FUNCTIONAL DESCRIPTION: 


This routine is the basic bitmap scanner. It scans the bitmap 
over the specified number of bits, performing the operation 
specified by the mode. 


: CALLING SEQUENCE: 
BITSCAN (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG1: mode of yt rgb = see module preface 
Anes! starting bit address in bitmap 
RG5: maximum number of bits to process 


IMPLICIT INPUTS: 
CURRENT_VCB: address of VCB in process 


OUTPUT PARAMETERS: ; 
ARG4: address of longword to receive ending bit address 
ARGS: address of longword to receive number of bits scanned 


IMPLICIT OUTPUTS: 
NONE 
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ROUTINE VALUE: 
1 if maximum bit count processed 
0 if not 


SIDE EFFECTS: 
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449 
450 
451 
i 
6 rt bitmap blocks may be altered, read, and written 
456 -- 
457 
458 BEGIN 
459 
460 LOCAL 
461 COUNT, ! number of bits to go 
reg BLOCK, ' current bitmap block number 
46 CBYTE, ' current pyte offset in block 
cBi ' current bit number within byte 


' number of bytes to scan 


@ 
=< 
_ 
m— 
re 
ze 
° z 
s 


46 ITLIM, ' number of bits to scan 
46 BUFFER ' address of bitmap buffer 
46 ENDBYTE, ' end of current byte scan 
NDBIT; ' end of current bit scan 
14 BIND_COMMON; 

47 EXTERNAL ROUTINE : 

474 MARK _DIRTY : LLNORM, ! mark buffer for writeback 
475 READ _BLOCK : LUNORA; ! read a disk block 
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v04-001 “Oct-19 
1489 of8 ! Initialize by sorting the count and setting up the pointers to 
490 47 ! the yn hag | position. Read the first map Block. The case of a 
$33 : , : zero count is handled specially to avoid bitmap edge problems. 
198 ibe 
494 4 COUNT = pPLTCOUNTs 
495 484 IF .COUNT EQL 
$38 485 THEN 
49 4 6 BEGIN 
498 487 »LENGTHFOUND = 0; 
499 4 8 -STOPBIT = .STARTBIT; 
2n0 4 RETURN 1; 
01 490 ; 
206 491 
50 136 BLOCK = .STARTBIT<12,20>; 
504 49 IF .BLOCK GEQU .CURRENT VCBCVCBSB_SBMAPSIZEJ : 
a2 t88 THEN BUG_CHECK (BADSBMBCK, FATAL, ‘ACP tried to reference off end of bitmap"); 
50 49 IF .BLOCK+1 EQL .B8] TMAP_VBN 
20 49 AND |. CURRENT _RVN EQL .BYTMAP_RVN 
51 BUFFER = .BITMAP_BUFFER 
51 ELS 
51 BEG! 
51 50 BITMAP_VBN = 0; 
51 BUFFER™= READ_BLOCK (.BLOCK+.CURRENT_VCB[VCBSL_SBMAPLBNJ, 1, BITMAP_TYPE); 
51 BITMAP_VBN = .BLOCK+1; 


BITMAP-RVN = .CURRENT_RVN; 
BI THAP_BUFFER = .BUFFER;: 


CBYTE = .BUFFER + .STARTBIT<3,9>; 
CBIT = .STARTBIT<0,3>; 
: The outer loop allows us to use the same set of bit processing instructions 
for the odd bits at both the start and end of the scan. 
WHILE 1 DO 
BEGIN 


Process bits from the starting position up to the first byte boundary. 
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BITLIM = MIN (8 = .CBIT, .COUNT); ' max number of bits to scan 
CASE gov FROM 0 TO 3 OF 

? EF IND. SET): FFS (CBIT, BITLIM, .CBYTE, ENDBIT); 

4 CF IND_CLEAR): FFC (CBIT, BITLIM, .CBYTE, ENDBIT); 

40 CSET_BITS): BEGI 

41 (,CBYTE)<.CBIT, .BITLIM> = =-1; 

$ IT = .CBIT + .BITLIM; 

& 3 

44 

45 CCLEAR_BITS]: BEGIN 
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YTE)<.CBIT, .BITLIM> = 0; 
IT = <CBIT’* -BITLIM: 


= 
~Ooo 


TES; 
Update the counters and pointers. 


COUNT = .COUNT = (.ENDBIT = .CBIT); 


: If we are now positioned on a byte age og eh we can process the bitmap 
on a byte by byte basis. Page through the bitmap until the count runs out. 


FUSISISISISIVIT 


IF .COUNT EQL 0 OR .ENDBIT NEQ 8 THEN EXITLOOP; 
CBYTE = .CBYTE + 1; 
CBIT = 0; 


WSIS 
PEARED 
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! If the count runs out or we run into an end condition leave the loop. 
! Otherwise read the next block, wrapping around the end of the bitmap 
when necessary, and loop. 


6 
? WHILE 1 - 
? BYTELIM = MIN (.COUNT/8, 512 = (.CBYTE=.BUFFER)); 
7 CASE .MODE FROM 0 TO 3 OF 
Ul : SET 
4 ? CF IND_SET): ENDBYTE = CHSFIND_NOT_CH (.BYTELIM, .CBYTE, 0); 
e CFIND_CLEAR): ENDBYTE = CHSFIND_NOT_CH (.BYTELIM, .CBYTE, 255); 
CSET_BITS): ENDBYTE = CHSFILL (255, .BYTELIM, .CSYTE); 
. CCLEAR_BITS): ENDBYTE = CHSFILL (0, .BYTELIM, .CBYTE); 
: 4 TES; 
8 , IF CHSFAIL (.ENDBYTE) THEN ENDBYTE = .CBYTE + .BYTELIM; 
7 
7 
7 
7 
7 
7 
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COUNT = .COUNT - (.ENDBYTE - .CBYTE) * 8; 
IF .ENDBYTE = .BUFFER NEQ 512 OR .COUNT EQL 0 THEN EXITLOOP; 


CASE fuse FROM MINU (SET_BITS, CLEAR_BITS) TO MAXU (SET_BITS, CLEAR_BITS) OF 


WR 9 OONAULS WN (SO OB™ PUNE WN (OOO NOANEWIN OO ODNOUS WI ODONAU 


CSET_BITS, CLEAR_BITS]: MARK_DIRTY (.BUFFER); 
CINRANGE, OUTRANGE): 0; 
TES; 

BLOCK = .BLOCK + 1; 
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EQU .CURRENT VCBEVEOSS_sOnAPSIzE] : 
ECK (BADSBMBCK, FATAL, ‘ACP tried to reference off end of bitmap’); 


MO-OOoaw -- 


: ! end of block scan loop 
1 We have either found the desired end condition or the count will run 
; Out within the next byte. Process the final byte bit by bit. 


IF 


-COUNT EQL Q THEN EXITLOOP; 
NE woth 


~ENDBYTE; 
! end of major loop 
! Scan is completed. Mark the buffer dirty if necessary and return the 
output values. 
CASE 088 FROM MINU (SET_BITS, CLEAR_BITS) TO MAXU (SET_BITS, CLEAR_BITS) OF 


CSET_BITS, CLEAR_BITS]: MARK_DIRTY (.BUFFER); 

CINRANGE, OUTRANGE): 0; 

TES; 
«LENGTHFOUND = .BITC 
-STOPBIT = .STARTBIT 
RETURN .COUNT EQL 0; 
END; ! end of routine BITSCAN 


OUNT - .COUNT; 
+ ..LENGTHFOUND; 


.EXTRN MARK_DIRTY, READ_BLOCK 
“EXTRN BUGS~BADSBMBLK 


oBr ¢ 0000 BITSCAN: .YORD Save R2,R3,R4,R5,R6,R7,RB,RI,R11 
+t 3 0c § 6 0 SUBL p 
4 AA OF PUSHAB -76(BASE) 
59 C AC 09 6 0 MOVL BITCOUNT, COUNT 
0c C BNEQ 
14 BC D4 OF CLRL § @LENGTHFOUND 
10 BC 08 Ac D0 MOVL §STARTBIT, a@STOPBIT 
0 01 BO 1 MOVL #1, RO 
AC 14 04 EF OOOIA 18: EXTZV #4, #20, STARTBIT+1, BLOCK 
50 98 AA DO 0 MOVL -164(BA f) R 
AO 08 00 FD 4 CMP2V #0, #8, 57(R0), BLOCK 
4 1A A BGTRU 
FEFF C BUGW 
0000* E «WORD  <BUG$_BADSBMBLK ! 4> 


vive) B-Jan-1985 18: 33: te AX-11_ Bliss=32 V4.0-742 Page 49 
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V04= “Oct-19 43:38 F11X.BUGSRCJSMALOC.B32;1 (11) 
50 01. oa? 9 0 28: MOV4B 14R7) + 2496 
00 BE 30 o} p CHPL ‘ 45:88) : ‘ 
BB AA Ad AA of A CMPL =96(BASE), =-72(BASE) + 2497 
08 AE BC AA 06 41 MOVL =68(BASE), BUFFER : 2499 
00 : D4 Ges 3$: CLAL a0 (SP) : 350 
DD 00048 PUSHL : 250 
1 DD 00040 PUSHL ; 
50 98 AA BO 4F MOVL a 4( iS i : 
4 B047 9F ; PUSHAB a (R BLOCK ; 
00006 CF 93 FB CALLS : 
08 AE 0 p 05¢ OVL FrER : 
00 BE 01. A 9060 MOVAB RO; BU a0( : 
BB AA AO AA D 06 MOVL  =96(BASE), -72(BASE) : 
BC AA 0 AF D 6A MOVL BUFFER, <4 ~68( : 
56 08 Ac 09 03 EF O6F 4$ EXTZV @ 49. STARTBIT, CBYTE : 
$ 08 AE CC 00075 ADDL2 BUFFER, ; 
58 08 ac 0 00 EF 00079 EXTZV #3, STARTBIT, CBIT : 
50 08 C3 OOO7F S$: SUBL3 CBI : 
59 30 D1 90085 CMPL RO, COUNT : 
03 15 00 86 BLEG : 
50 59 D0 000 MOVL COUNT, RO : 
58 50 DO 00088 6$ MOVL RO, eitin F 
03 00 04 AC CF OO03E CASEL mobe #0, #3 F 
0023 0018 0010 0008 00093 7$ WORD gs- §,- ; 
$-7$,- 3 
if" | 
04 AE 66 58 58 EA 00098 8$: FFS C It, BITLIM, (CBYTE), ENDBIT : 
1D 11 000A1 BRB : 
04 AE 66 5B 58 EB O00A3 9S: FFC CBIT, BITLIM, (CBYTE), ENDBIT ; 
15 11 000A9 BRB 1 : 
66 58 SB FFFFFFFF 8F FO OO0AB 10$:  INSV #=1, CBIT, BITLIM, (CBYTE) ; 
05 11 00084 BRB 12s ; 
66 58 58 00 FO 0086 11$: INSV. #0, CBIT BITLIM, (CBYTE) : 
04 AE 5 B C1 000 128: ADDL3 BITLIM, €BIT, ENDBIT : 
50 53 04 Ar C3 000CO 13$: | SUBL3 ENDBIT. CBIT. RO ; 
59 5 £0 00¢ ADDL2 RO, COUNT ; 
03 1 99¢ BNEQ 15$ : 
00D6 31 OOOCA 14%: BRW 33$ ; 
08 04 aE D1 000CD 15$: CMPL = ENDBIT, #8 : 
F if D BNEG 14$ ; 
D D INCL  CBYTE ; 
D4 000D CLRL cBIT : 
51 59 C7 00007 16$ DIVL3 #8, COUNT, R1 : 
50 08 Ar 6 3 D SUBL cBYTE BUFFER, RO ; 
5 0200 ¢ ‘ OOE MOVAB VecRd), RO : 
50 1 ? E CMPL RT, R : 
H ; E BLEG 3=s«a17$ ; 
51 D EA MOVL RO, RI : 
0c Ar 1 DO OOOED 178 MOVL 1. BYTELIM : 
93 0 04 AC CF OOOF1 CASEL ObE, f #0, #3 : 
002A 0020 0011 000 F6 : 


188: «WORD 1 $188 


ate 
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v04-001 por} 382 13:33:48 YET Tx. BUGSREISMAL OC BS2.1 944) 
24$-18$ 3g 
6 OC AE 0 38 OFE 19$ SKPC #0, BYTELIM, (CBYTE) : 2562 
A 11 i 8 gi : 
66 Oc AE FF . 33 i 208 SkPC 1335, BYTELIM, (CBYTE) + 2564 
; D4 0010F gis: CLRL R1 : 
52 1 D0 111 22$: MOVL  R1, ENDBYTE ; 
14 11 00114 BRB 26$ : 
OC AE FF OF 6E 00 2c O16 23$ MOVCS #0, (SP), #255, BYTELIM, (CBYTE) + 2566 
4 11 Oile BRB 258 : 
OC AE 00 6E 0 2c 4 24$:  MOvCS #0, (SP), #0, BYTELIM, (CBYTE) : 2568 
52 38 dO 001 § 358: MOVL R3, ENDBYTE : 
05 1 91 A 26$:  BNEQ 27§ : 2572 
52 Se OC AE Ci O01eC ADDL 3 BYTELIM, CBYTE, ENDBYTE : 
50 56 5 cs 00131 27$:  SUBL3  ENDBYTE. CBYTE + 2579 
59 6940 7E 00135 MOVAQ (COUNT)C(ROJ, COUNT : 
50 08 AE 00000200 BF C1 00139 ADDL3 #512, BUFFER, R : 2580 
5 52 01 142 CMPL ENDBYTE. RO : 
52 12 0014 BNEQ 2$ : 
59 05 00147 TSTL COUNT ; 
se 1 00149 BEQL $ : 
01 02 04 AC CF 00148 CASEL DE, #2, #1 + 2582 
0006 0006 00150 28$ . WORD sor 88" : 
08 11 00154 BRB 0$ ; 
08 AE DD 00156 29$:  PUSHL BUFFER : 2585 
00006 CF 01 FB 00159 CALLS #1, MARK_DIRTY : 
57 06 0015E 30$: INCL t Ck : 2591 
50 98 AA 00 00160 MOVL = 04 (BASE) RO : 2592 
57 39 A 08 00 ED 00164 CMP2V #0, #8, 57(RO), BLOCK : 
04 1A OO16A BGTRU 31$ : 
FEFF 0016C UGW > 2593 
0000* 016 .WORD <BUG$_BADSBMBLK!4> ; 
00 Bt D4 00170 318 CLRL © AO SPT : 2595 
1 OD 0017 PUSHL : 2596 
01 DD 0175 PUSHL #1 ; 
50 2 AA p 017 MOVL =1 4 (BASE) R ; 
4 B047 9F 00178 PUSHAB @52(RO) (BLOCK F 
00006 CF 93 FB 17F CALLS #3, READ BLOCK : 
08 AE 0 p 1 MOVL ; 
00 BE 01 A 91 MOVAB =: 1(R7) (SP) : 2597 
BC AA AE 00 001 MOVL BUFFER, -68(BASE) : 2598 
56 0 mL: po 1 HOVE BUFFER, CBYTE ; 299 
43 p 0199 328: TSTL T : 2606 
06 0198 BEQL ; 
56 p 1 MOVL ENDBYTE. CBYTE : 2607 
FEDC OIA BRW $ : 2516 
01 02 04 AC CF OOIA 338: CASEL DE, #2, #1 + 2614 
0006 0006 O1AB 34$: WORD ; $-#43.- : 
08 11 OO1AC BRB 6$ ; 
08 AE OD AE 35$:  PUSHL BUFFER : 2617 
00006 CF 01 FB 001B CALLS #1, MARK_DIRTY ; 
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14 BC 45 AC 59 C3 001B6 36$ sua COUNT, BITCOUNT, @LENGTHFOUND 
10 BC AC 14 BC Ci 001B ADDL SLENGTHFOUND, STARTBIT, aSTOPBIT 
9 bs Sore ff NI 
0s 03 1C7 BNEQ coy 
Be 1¢9 INCL 
4 1CB 37$: RET 

; Routine Size: 460 bytes, Routine Base: S$CODES + O9EF 
: 1639 
: 1640 3699 |e END 
3 1641 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 3003 NOVEC,NOWRT, RD. EXE,NOSHR, LCL, REL, CON, NOPIC,ALIGN(2) 
; Library Statistics 
eee Le ee eee - Symbols ooo--<-- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA18:(SYSLIBILIB.L32;1 18619 59 0 1000 00:01.9 
3 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SMALOC/OBJ=O0BJ$:SMALOC MSRC$:SMALOC/UPDATE=(BUG$: SMALOC) 

Size 2971 code + 32 data bytes 

ay Ni 212.6 
Flapsed. Time: rit 9 


Lines/CPU Min: 119 

Lexenes/CPU-Rin: 53134 
poe | Used: 339 pages 
Compilation Complete 
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